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Facility: FAL (DECnet File Access Listener) 
Abstract: 

This module contains action routines called by the state table manager. 
Environment: VAX/VMS, user mode 


Author: James A. Krycka, Creation Date: 16-JUN-1977 
Modified By: 
v03-020 g6 10052 J E Johnson 21-Au 


ix the ere support in the nfScReRTE te a to not 
ARF y turn off the SHRGET bit te that 
since some non-VMS always set SHRGET on *ScREATE this bit 
is turned off if the file format does not support sharing. 


v03-019 si J0pse J E Johnson 19-Jun-1984 
Fix 3-part name message handling to always send the 
directory spec if the device spec has changed. 


JAKO145 JA _Kryck 12-APR-1984 
Track changes in DAP arssege building algorithm. 


JAKO143 J A Krycka 11-APR-1984 
Use NAMS$V_SRC HXABS option of the NAM$B_NOP field instead of the 
FABSL_CTX” field to request return of XAB information on $SEARCH. 
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6 V03-016 JAKO137 J A Krycka 12-MAR=-1984 

0 Implement FAL Lessing “Sption to disable poor-man's (or manual) 

8 routing which is an unsupported and undocumented feature. 

0 VO3-015 JAKO136 07-MAR-1984 

Use FAL$GQ _WILDsPEC ty Wildcard files specification string. 

VO3-014 JAKO129 J A Krycka 11-JAN-1984 
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Kryc 
Correct success exit path in WRITE_FTM_NORBK action routine. 


V03-013 JAK0128 ah 16-SEP-1983 
Add FALSDISCARD_ Dat action routine to CRC check data being 
discarded during file transfer storage mode error recovery. 
VO3-012 JAK Krycka 29-JUL-1983 


K0120 JA 
Add FALSSAVE_MSG action routine to defer message processing. 
Add FAL$BIT_BUCKET action routine to discard buffered data 
during file transfer storage mode error recovery. 
Also, reclassify error on Access Complete (end-of-stream) as 
a file close error instead of a file transfer error te enable 
the accessing axe stem to etqttogyisd between a SPUT/SWRITE 
and a SDISCONNECT failure in file transfer storage mode. 


VO3-011 JAKO117 J A Krycka 08-JUL-1983 
Preserve alternate success codes on record mode operations 
instead of converting them to RMS$_SUC. 


V03-010 JAKO110 J A Krycka 22-JUN-1983 
Fix bug in return of Acknowledge message in FALSDIR_SEARCH. 
0 v03-009 JAKO109 J A Krycka 20-JUN-1983 


Change SEND_CMP to be a subroutine 
peneae SEND-STS_SUC to EXIT revs "Sue and SEND_STS_FAIL to 


EXIT_STS_FATL, as they also terminate the action routine. 
Also, siicet Tinos cleanup. 
V03-008 JAKO108 J A Krycka 16-JUN-1983 


Fix bug in CRC computation for retrieval of VFC formatted file 
introduced in JAKO104, 
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v03-007 KRMO112 31-MAY-1983 
Continuation of Kanoyo6 to support DAP V7.0 specification. 
v03-006 K Malik 10-m 


Y¥-1983 
Update’ SF ALSERASE” PALSEXTEND and FALSDIR. SEARCH to support 
0 message tate rules. 


V03-005 JAK0104 ycka 19=APR-1983 
Rewrite FALSGET READ” and PALSPUT -WRITE action routines to 
improve block 170 file transfer mode performance and to 
organize these routines into eight distinct code paths for 
shorty and efficiency. The 7”. GET on and FALS a WRITE 
state table ent ry go nt names pave. Geen D repteced & 
FALSRETRV_RAM, FALSRETRV_FTM, FALSS 
FALSS TORE” FIM plus a new™one called ORE SstoRE® _END. 
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0000 115; V03-004 KRM0095 K Malik 06-APR-1983 

0000 116; Update FALSRENAME to support DAP V7.0 specification. 

B60 We : } so, change SEND_ACK to be a subroutine. 
0900 119 ; v03-003 KRM0082 Malik 23-MAR-1983 

B80 | 9 ; Add support for STMCE and STMCR file formats. 

0000 1 ¢ : v03-002 KRM0067 K Malik 23-NOV-1982 

4 } ? : Add FALSRENAME routine to support SRENAME operation. 

0000 125 : 
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ACTION ROUTINES 


: Include Files: 


SOAPCRCDEF 
SDAPF IDDEF 
$F ABDEF 
$F ALWRKDEF 
$F ALSTBOEF 
SNAMDEF 


SXABSUMDEF 


Macros: 
None 
Equated Symbols: 


=10 
“1 
=18 
= 
2=1 


; 
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SHR ,NOEXE,RD,WRT,LONG 


Define DAP prologue symbols 

Define DAP message header 

Define DAP Configuration message 

Define DAP Attributes message 

Define DAP Access message 

Define DAP Control message 

Define DAP Continue Transfer message 

Define DAP Acknowledge message 

Define DAP Access Complete message 

Define DAP Data message 

Define DAP Status message 

Define DAP Key Definition message 

Allocation message 

Define DAP Summary message 

Define DAP Date and Time message 

Define DAP Protection message 

Define DAP Name message 

Define DAP CRC checksum Syanene 
DAP field ID symbols 

Define File Access Block eyanens 

Define FAL Work Area symbols 

Define Statistics Block symbols 

Define Name Block symbols 

Define Record Access Block symbols 

Define RMS completion codes 

Define System Service status codes 

Define symbols common to all XABs 

Define Allocation XAB symbols 

Define Date and Time XAB symbols 

Define File Header Char XAB symbols 

Define Key Definition XAB symbols 

Define Protection XAB symbols 

Define Revision Date and Time symbols 

Define Summary XAB symbols 


Line feed 

Vertical tab 

Form feed 

Carriage return 

Data Link error (Control-P) 
Device control 1 (Control-Q) 
Device control 2 (Control-R) 
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9 3 Device control 3 ntrol-S) 
0 ; Device control 4 ntrol-T) 
=26 3: Control=Z 

3; Escape 


RLF =*xXOA0D ; ASCII codes for CR and LF 


ASSUME DAP$Q_DCODE_FLG EQ 0 
ASSUME FALSQ7FLG EO 
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Own Storage: 


; The following bitmask represents the DAP terminator set for stream (STM) 

; format files where each bit position corresponds to an ASCII character code 
: for a single-character terminator. Note that the default terminator, CRLF, 
; is not expressed in this mask. 


FALSSTM_MASK:: ; DAP stream terminator bitmask 
~-LONG <<l@LF> + <1aFF> + <laVT> + <1aCTRLZ> + <1@ESC> + = 
<1aDLE> + <1aDC1> + <1aDC2> + <1aDC5> + <1aDC4> 


0C1F1C00 
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~SBTTL STATE TABLE ACTION ROUTINES 
0000 ~-PSECT FALSCODE NOSHR ,EXE,RD,NOWRT ,BYTE 


+4 
Functional Description: 


This module gonteins action routines invoked by the state table 
manager (FALSSTATE). 


The sop parameters and completion codes Listed below are applicable 
for gl of these action routines. Note that an action routine may use 
RO-R7 and AP without pester ine them on exit. RO on exit, however, must 
represent a status code to indicate success/failure of the routine or 
a true/false condition, as appropriate. This status code is used by 
the state table manager to advance to the next state. 

Calling Sequence: 
BSBW FALSname 

Input Parameters: 
R8 Address of FAL work area 
R9 Address of DAP control block 
R10 Address of F 
R11 Address of RAB 

Implicit Inputs: 
None 


Output Parameters: 


RO Completion Code 
Ri-R7 Destroyed 
AP Destroyed 


Implicit Outputs: 

None 
Completion Codes: 

RO 1 = success; 0 = failure 
Side Effects: 

None 
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08 18 Ad 
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-SBTTL FALSNEXT_MSG, FALSINTE_MSG 


p++ 
; The following routines have separate entry points but share common code ... 


This routine obtains the next DAP message from partner (excluding panerrupe 
e 


3 messages). Then it syntax checks this 
; DAP control block. 


FALSNEXT_MSG:: 
BBcc #FALSV_MBXAST, (RB) ,10$ 


FALSMBX_RCV_Q10 
FALSRECEIVE 
DAPSL_DCODE_STS(R9), 108 


BSBW 
10$:  BSBW 
CHE CK_PARSE : 

BLBC 


: The DAP message parse was successful; 
3; table value. 


MOVB DAP$B_DCODE_MSG(R9) ,- 
FAL$B_VALUETR8) 
BRW EXIT_SUCCESS 


message and stores the results int 


; Entry point 

; Branch if no mailbox message has 
; been receive 

; Ignore any interrupt message and 
3; re-issue mailbox read with AST 

; Get next DAP presage and parse it 
; FALSINTE_MSG branches here 

; Branch on message parse failure 


use message type as the next state 


; Store new state transition value 
: Exit state with success 


: Parse of DAP message failed; send Status message to partner. 


10$: MOVZBL DAPS$B_DCODE_FID(R9) ,RO 
MOVZBL DAPS$B_DCODE-MSG(R9),R1 
MOVZBL DAPSB"DCODE-MAC(R9) ,R2 
BRW EXIT_STS_FATL 


; Get ID of field in error 
; Get ee type number 
; Get maccode error value 
; Return error in Status message 


message. Then it syntax checks this message and stores the results in the 


++ 
; This routine obtains the next DAP message from partner sent as an interrupt 


; DAP control block. 


FALSINTE_MSG:: 
Rova DAP$Q_MSG_BUF1(R9) ,-(SP) 
MOVa DAP$Q- MSG BUF 2(R9) ,-(SP) 
BSBW FALSRECEIVE_MBX 
MOVa (SP)+,DAP$Q_MSG_BUF 2(R9) 
MOVQ (SP) +,DAP$Q-MSG_BUF 1(R9) 
BRB CHECK_PARSE 


Entry point 
Save decode context 


Get next DAP message delivered as 
an interrupt message and parse it 
; Restore decode context 


Join common code 
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p++ 

; This routine determines whether or not a DAP message has been received from 
; partner. The receive AST flag stored in the FAL work area is used to form 

; the state transition status code. 


FALSTEST_MSG:: 3; Entry point 
EXTZV #FALSV_RCVAST,#1,(R8),RO; Form yes/no reply 
RSB 3; Exit state with status code in RO 


~-SBTTL FALSSAVE_MSG 


p++ 

; This routine restores the input message descriptor in the DAP control block 
3; to its state before the last message was requested (via FALSNEXT_MSG) and 

; decoded. This allows a message to be persed. examined, and then returned 

; to the input stream (via FALSSAVE_MSG) to defer its processing (until after 
3; an interrupt message, for example, has been received and processed). To 
3; reparse the saved message, FALSNEXT_MSG is called. 


FALSSAVE_MSG:: ; Entry point 
ADDL2 DAP$Q_MSG_BUF 2(R9),- ; Restore size of input message 
DAPS$Q_MSG_BUF1(R9) ; _descriptor 
MOVL DAPS$Q_MSG_BUF2+4(R9),- ; Restore address of input message 
DAPSQ_MSG BUF 1+4(R9) ; _descriptor 
BRWwW EXIT_SUCCESS ; Exit state with success 
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.SBTTL FALSFIL_PARSE 


++ 
This routine parses the file specification received from partner for file 
access functions other than the DAP DIRECTORY List function. 


Note: If the SPARSE operation finds a wildcard character, but the partner 
process declares that it does not sugpert wildcard operations, then 
an RMS$_WLD error will be returned. This is done to assist systems 
(such as DECnet-IAS) that do not understand VAX/VMS wildcard file 
ope TT 10as Tae and therefore cannot determine that one has been 
specified. 


FALSFIL_PARSE:: 3; Entry point 
SPARSE R10 ; Parse the file specification 
K_FOR_PMR ; Possibly disallow poor-man's routing 
os ; Branch on failure 
$V_WILDCARD,- ; Branch if non-wild expanded string 
L_NAM+NAMSL_FNB(R8), 108 
WILD, (R8Y ; Denote wildcard operation 
P$V_WILDCARD,=- ; Branch if partner supports wildcard 
DAP$Q_SYSCAP(R9S,10$ : operations 
MOVZWL #<RMSS_WLDS*XFFFF>,RO ; If not, return an error code for 
BRB 20 : ‘invalid wildcard operation’ 
10$: BRW EXIT_SUCCESS ; Exit state with success 
208: BRW ERR_FILE_OPEN ; Return error in Status message 


FA 
BSBW CH 
BLBC RO 
aN 


SSETBIT 
BBS 
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.SBTTL FALSCHECK_WILD 


p++ 

; This routine determines whether or not the parsed file specification contains 
3; any wildcard characters. The wildcard status bit stored in the FAL work area 
: is used to form the state transition status code. 


FALSCHECK_WILD:: ; Entry point 
BxIzV #FALSV_WILD,#1,(R8),RO ; Form yes/no re 
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3 Exit state with status code in RO 
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FALSCHECK_NMF:: 
CAPW 


Pe ee Oe oe oe oe oe ot ot oe ot oe ot ok at ae ek ak oe on oe on oe oe ee eee ented tes natn stnn el 


rorore 


NAW WN OC OO NAW WN 9 OO NAU EWN 0 OO NAME WIN O OONOAUE wry 


tt tt 01:38:88 rte Macro V04-00 
“SEP-1984 01:16: FAL.SRCJFALACTION.MAR; 1 


~SBTTL FALSFIL SEARCH 


p++ 
; This routine performs the search operation on a wildca 
: for file access functions other than the DAP DIRECTORY 


ist function. 


3; Entry point 
; Search for next file name match 
: Branch on failure 


FALSFIL_SEARCH:: 
SSEARC 
BLBC RO,10$ 


; Re-establish the FHCXAB at the head of the XAB chain. 


MOVAL FALSL_FHCXAB(R8),- ; Store FHCXAB pointer in XAB chain 
F ABSL~XAB(R10) . 
MOVAL FALSL_FHCKAB#+XABSL NXT(RB) ,= ; 
FALSL~ CHAIN. NXT (RS) ; Save address of next chain pointer 
CLRL aFAL$C_CHAIR_NXT(R8) ; Terminate XAB chain at FHCXAB 
BRwW EXIT_SOCCESS ; Exit state with success 


; Note that RMSS_NMF converts to an Access Complete message. 


10$ CMPW RO,#<RMSS_NMFE*XFFFF> 8 ; Check for normal termination 
BEQL 208 ; of wildcard operation 
BRW ERR_FILE_OPEN ; Return error in Status message 
20$ BSBwW SEND_CMP ; Ser.d Access Complete message 
BRW EXIT_SUCCESS ; Exit state with success 


.SBTTL FALSCHECK_NMF 


344 
: This routine determines whether or not an RMS$_NMF (no more files found) 
3 completion code was returned on the Last $SEARCH call. 


; Entry point 


FABSL_STS(R10),- ; Branch if last error code was 
#<RMSS_NMF&“XFFFF> ; RMSS_NMF 
BEQL 10$ ; . 
BRW EXIT_FAILURE ; Exit state with failure 
108: BRW EXIT_SUCCESS ; Exit state with success 


4 file specification 
s 
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-SBTTL FALSOPEN 


p++ 
; This routine performs the DAP OPEN file function for both single file and 
; wildcard requests. 


FALSOPEN:: 3; Entry point 


: An Attributes message must precede the Access message. Check for it. 


BBS #FALSV_ATT_MSG,(R8),10$ ; Branch if ok 


03 68 01 fo QOBA 
BRW ERR_SYNCHRONI ZE ; Return error in Status message 


0C04 


: On a wildcard operation return Name messages derived from the resultant name 
; string obtained on the $SEARCH call. 


10$: BBC #FALSV_WILD, (RB) ,20$ ; Branch if not wildcard operation 
BSBW SEND_3PART_NAM Send resultant name in three Name 
message format 


03 68 OA + 
OB4E 0 


: Open the specified file. 
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00C1 
00C1 
00C1 
00C1 
00C1 
00C1 
00C1 
00c5 
00C8 
00C8 
00C8 
00c8 
ta: 
0975 30 00C8 208 BSBW CHAIN_RQST_XABS ; Add required XABs to XAB chain 
14 AA B4& O0CB CLRW FABSW-DEQ(R10) ; Clear the old DEQ value 
Bock SOPEN FAB=RTO ; Open the file 
36 50 5° 00D BLBC RO,60$ ; Branch on failure 
F23° 30 OQODA BSBW FALSLOG_RESNAM ; Log resultant name in print file 
06 69 26 £0 QO0DD BBS #DAP$V_GEQ_V70,(R9),30$ ; Branch if partner uses DAP since V7.0 
1F AA 91 = Q0E1 CMPB FABSB_RFM(R10),- ; Return error if file has a record 
OOE4 6 #FABSC_STM 3; format that cannot be mapped into 
21 1A SOEs re BGTRU 50$ ; DAP RFM field of an earlier DAP spec 
QO0E7 468 ; 
sta 4 re ; Set-up to compute file level CRC checksum if requested. 
0&7 471° 
03 €1 QOE7 472 30$: BBC #DAPSV_RET _CRC,- ; Branch if checksum option not 
08 O1FS5 C8 E9 47 FAL$B_ACCOPT (RS) .40$ 3 requested by accessing node 
OOOOFFFF 8F DO E 47 MOVL #DAPSR_CRC_INIT,= 3; Use initial CRC value as first 
20 A9 OF 47 DAPS$L_CRC_RSLT(R9) ; CRC resultant value 
F 477 ; 
re 478 ; Return (main) Attributes, Extended Attributes, and (resultant) Name messages 
: rt 3; to partner as directed by request mask, terminated by an Acknowledge message. 
3 481 ° 
O97F 630 F 482 40$: BSBW CHAIN_RQST_PRT2 ; Fill im alterate ALLXABs and KEYXABs 
4 4 ; _as directed by NOA and NOK values 
15 50 9 oF 4 BLBC RO,60$ ; Branch on failure 
0A85 0 FBG BSBw SEND_OPTNL_MSGS ; Build and send optional DAP messages 
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gee rett #FALSV_LAST_MSG, (RB) 


AX/VMS Gecre 
FAL.SRCJFALACTION. Bar: 1 


; Declare this Last message to block 
: Send Acknowledge message 
: Exit state with success 


seal 


Generate invalid record format error 
; Zero sesencers status value 
; Return error in Status message 


4 § 508: 
49 


BRW Peguce css 

MOVZWL HRMS RFM&*XFFFF>,RO 
LRL =—s- FABSL_STV(R10) 

491 608: BRW 


ERR FILE. _OPEN 
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~-SBTTL FALSSUBMIT, FALSCREATE 


; This routine performs 
; the command file, submittin 


FALSSUBMIT:: 


BISL 


FALSCREATE:: 


BBS 
BRW 


ASSUME 
TSTB 


BBC 
SPARSE 
BSBW 


BSBW 


#<<FABSM_SCF>!= 
<FABSM~DLT>/= 
0>, FABSL-FOP(R10) 


#FALSV_ATT_MSG, (R8),10$ 
ERR_SYNCHRONIZE 


FABSC_SEQ EQ 0 
$B-ORG(R10) 

BSC_FIX,- 

$B_RFM(R10) 

2, FABSW_MRS(R10) 


ABSM_SHRGET,- 
B$B_SHR(R10) 


P—-FD > ew 


FA 
15 
#F 
fA 
#5 
15 
#F 
FA 


: Create the specified file. 


#FALSV_DIS_PMR, (RB) ,20$ 
FAB=R10 
CHECK_FOR_PMR 


CHAIN _RECV_XABS 


Bw 
SCREATE FAB=RTO 
BLBC 


FALSLOG_RESNAM 


1:16: 
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The following routines have separate entry points but share common code ... 


he gt ge og Ry function which consists of creating 
o the s 
finally deleting the command file when t 


yas one manager for execution, and 
e job is finished. 


Entry point 
Set submit-on-close and 
delete-after-execution bits 


; Fall thru to FALSCREATE ... 


p++ 
3; This routine performs the DAP CREATE file function. 


Entry point 


: An Attributes message must precede the Access message. Check for it. 


Branch if ok 
Return error in Status message 


Is this a sequential file? 
Branch if it isn't. 
Is this a fixed record format? 


Branch if not 

Is the recordsize right for sharing? 
Branch if it is. 

Only allow sharing to be set on files 
that can be. Some systems will try 
to always set SHRGET regardless. 


If poor-man's routing is not allowed 
then first parse the filespec to 
determine if a node name is present 

Branch on failure (node name found) 

Add received XABs to XAB chain 

Create the file 

Branch on failure 

Log resultant name in print file 


; Set-up to compute file level CRC checksum if requested. 


3 
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v04-000 FALSSUBMIT, FALSCREATE -SEP-1984 01:16:09 FAL.SRCJFALACTION.MAR; 1 ( 
03 €1 O15 550 BBC #DAP$V_RET_CRC,- ; Branch if checksum option not 
08 O1F5 C8 16 551 FAL$B_ACCOPT (RA) , 30$ 3 requested by accessing node 
OOOOFFFF 8F DO 0164 26 MOVL #DAPSR_CRC_INIT,=- ; Use initial CRC value as first 
20 A9 16A 33 DAPS$L_CRC_RSLT(R9) ; CRC resultant value 
16C 23 
16C 36 ; Return (main) Attributes, Extended Attributes, and (resultant) Name messages 
196 38 ; to partner as directed by request mask, followed by an Acknowledge message. 
16¢ «6059 ° 
0OA14 30 016C 0 30$: tt 4 SEND_OPTNL_MSGS ; Build and send optional DAP messopes 
$F SETBIT #FALSV_LAST_MSG, (R8) ; Declare this last message to bloc 
8435 0 01 BSBwW SEND_ACK 3 Send Acknowledge message 
6D 1 178 6 BRw EXIT SUCCESS 3; Exit state with success 
0B12 17 64 40$: BRwW ERR_FILE_OPEN ; Return error in Status message 
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FALACTION - STATE TABLE ACTION ROUTINES 1 mi ise ts 9 1:34:86 AX/VMS Macro V04-00 Page 15 | As 
v04-000 FALSERASE -SEP-1984 01:16: FAL.SRCJFALACTION.MAR; 1 (10) | 
17¢ 66 -SBTTL FALSERASE 
17¢ 6 
17¢ o8 p++ 
re $3 ; This routine performs the DAP ERASE file function. 
17C 71 ; Note: RMS does not return XAB information on SERASE. The DAP specification, | 
17¢ if 3 however, allows partner to request that DAP Extended Attributes messages 
17C 73 3 be returned, but it is unlikely that anyone will make a request for 
017¢ 278 : anything but a Name message. 
Bee 75 ;-- 
17¢ 6 
giee 77 FALSERASE:: : Entry point 
0o8c1 30 OI17C 4 BS3W CHAIN_RQST_XABS ; Add reguired XABs to XAB chain 
EAA 7 SERASE FAB=RTO ; Erase (delete) the file 
1¢ 50 2 188 580 BLBC RO,30$ ; Branch on failure 
FE72° 30 gi58 28) BSBW FAL$LOG_RESNAM ; Log resultant name in print file 
70 As 8 18— 65 < TSTW FALSW_DISPLAY(R8) ; Branch if no additional information 
OA 13 0191 28 BEQL 10$ ; _to return | 
0960 30 0193 84 BSBW SEND_OPTNL_MSGS ; Build and send optional DAP messages 
03 69 6 + 0196 585 BBC #DAPSV_GEQ_V70,(R9),10$ ; Send Rennew, oes message gnty if 
09c5 0 Q19A 586 BSBW SEND_ACK 3; _partner uses DAP since v7.0 | 
03 68 OA 34 0190 HH 10$ BBS #FALSV_WILD, (R8),20$ : Branch if wildcard operation 
09C 0 QO1A1 588 BSBW ND_CAP ; Send Access Complete message 
OBS 31 QIAS 589 208: BRU EXITESUCCESS : Exit state with success | 
03 68 OA €1 O1A7 590 30S: BBC #FALSV_WILD, (R8) ,40$ ; Branch if not wildcard operation 
OA68 30 O1AB 591 BSBW SEND_3PART_NAM ; Send resultant name in three Name 
O1AE 286 3; _message format 
OADD 31 O1AE 593 40S: BRW ERR_FILE_OPEN ; Return error in Status message 
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-SBTTL FALSRENAME 
p++ 
; This routine performs the DAP RENAME file function. 


FALSRENAME: : ; Entry point 
BBS #DAP. _GEQ_V70,(R9),10$ ; Exit if gortner does not support 
BRW FALSUNS_ACCFUNC + DAP V7. 


: Set up registers 


OcOO 8F 6B 108: PUSHR #*M<R10,R11> ; Save registers 
56 dO MOVL R ; Get old filename FAB address 
57 28 AB DO MOVL § FABSL_NAM(R6),R7 + Get old filename NAM address 
5A__ 0800 C8 CODE MOVAL FALS$L-FAB2(R85 ,R10 ; Get new filename FAB address (FAB2) 
58 ¢p AA 00 OVL FABSL_NAM(R10),R11 ; Get new filename NAM address (NAM2) 
5E 00000050 8F C2 SUBL2 #FALSR_FAB,SP 3; Make room on stack for temporary 
5C SE 00 MOVL ~AP ; FAB (old filename) and save pointer 


Create a temporary FAB (old filename) on the stack and fill in or clear 
appropriate fields. 


6—€ 66 0050 8F 28 MOVC3 #FALSK_FAB,(R6),(SP) ; Copy old FAB onto the stack 

10 68 OA €E1 BBC #FALSV_WILD, (RB) ,20$ : Branch in non-wild operation 
04 a7 —0 MOVL  NAMSL_RSA(R?),- ; Since an open by NAM block is 
2C AE FABSL_FNA(SP) ; not allowed, overwrite the FNA 
03 A? 90 MOVB NAMS$B_RSL(R7),- ; and FNS with the RSA and RSL 
34 AE FABSB_FNS(SP) ; 
02 AE B84 CLRW FABSW_IFI(SP) i; Clear the IFI field 
28 AE D4 CLRL FABSL_NAM(SP) ; Clear the NAM field (so that the 


wildcard context is not touched 
by the SRENAME) 


Parse the new filename against the old filename to resolve any wildcards 
or empty fields - i.e. rename a.a to .b or a.a te *.b 


os 4 5 a 4 — 9d 4 2» 2» 4) —» —) 2» — > 4s ~~ as 2s ~~) 2s 2 ss — 2s os a a 


SEeeoe asses Ww HHHMAMMMMMMOOOCVVOCVVVVOCOCOCWWWVIVIWVIVIOIOIWOWIWOWIOVIOOw 
MEW O OD NOU EWN OC OONAU EWN (OOO NAW EWA CO OONOAOU EWP" OWOOnou 


te ee ww www lol wie ol wl wlwlelanlolololeloleleolaleololeloleleleloleleleloleleleleloleleleleleleo ol elelelolel ola) 
DO WOOD VNWOOCOOCOOOOOSD PF WUWOAMAAAAAPAAWMO COW OH COCDCOCD 0000 — > — 9 — 9 
PEP APEAPDPAAAAA AAA AA AA AA AAAAAAA AA AA AAA AAPA AAA AAO A ASCO 
BPE EF EAN AANWIWIWIIPIDIPIPONPONPINPININIDY 2 2 9 PO SS MOOOOOOOOOCOOOOONO 


$f AA DD 208: PUSHL date mbes tht ; Save the new FNA on the stack 
7E 4 AA 9A MOVZBL FABSB_FNS(R10),-(SP) 3; Save the new FNS on the stack 
10 AB O57~—sCOD0 MOVL  R7,NAMSL_RLF (R11) : Use old filename NAM as RLF 
SSETBIT #FABSV_OFP,FABSL_FOP(R105;Set the output file parse bit 
FE4A 30 BSBwW FALSFIC PARSE ; Parse the new filename 
0c AB 00 MOVL NAMS$L_ESA(R11),- ; Overwrite the FNA with the old 
C AA FABSL_FNA(R10) ; filename ESA and ESL 
AB 90 MOVB NAM$B_ESL(R11),- 3 
4 AA 64 F ABSB~FNS(R10) : 
o> be 
OD 649 ; Any wildcards have now been resolved. Do the $RENAME, restore the registers 
44 $20 3 and stack, process optional messages, do logging and exit. 


2 eee 
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ei 


0D 6 
0D 836 SRENAME ks aa NEWF AB=R10 3; Rename the file 
o¢ BA 1C «6654 POPR a°n ; Get the new FNS 
34 AA 1 0 45 655 MOVB R1,F ABSB_FNS(R10) 3; Restore the new FNS 
26 AA ED 696 POPL Pabst FNACR10) ; Restore the new FNA 
SE 00000050 8F C 6 65 ADDL2 # APSR A SP ; Evaporate temporary old FAB 
0c00 ef BA 02eD 698 POPR M<RI0,R11> : Restore registers ( (old FAB in R10) 
2A 50 9 1 65 BLBC RO,40 § prance if SRENAME failed 
FoC9’ 350 4 660 BSBW FALSLOG_RESNAM : old resultant name in print file 
0949 0 7 661 BSBW SEND_OPTNL_MSGS $ utd and send old optional DAP msgs 
0925 0 A 666 BsBwW SEN : Send Acknowledge message 
SA 0800 C8 ODE 3 96 OVAL ate rage cre) R10 3 Set up with new FAB 
4 4 SSETBIT # 0_N , (RB) : Pee flag to send new resultant nam msg 
Fer" 0 8 665 BSBwW FALSLOG. RESNAA : Log new resultant name in print file 
0937 0 024 006 BSBW SEND _OPTNL_MSGS 3 ld and send new optional DAP msgs 
8913 0 8 4C = 66 BSBW SEN K : an recocd FAB agg message 
5A 0200 C DE 4F 6668 MOVAL FALSC_FAB(R8),R10 3; Restore old F dress 
03 68 OA £0 0254 669 BBS #FALSO_WILD,(R8),30$ =: Branch if w ildcard operation 
0914 0 0258 670 BSBW SEND_ 3; Send Access Complete message 
OA88 1 0258 671 30$: BRW EXIT-SUCCESS ; Exit state with success 
03 68 OA 1 025 ore 40$: BBC GFALSV. WILD. (Rs), 50$ : Branch if not wildcard operation 
981 0 026 67 BSBW SEND_3PAR : Send resultant name in three Name 
026 674 ; _message format 
OA26 31 0265 675 508: BRW ERR_FILE_OPEN ; Return error in Status message 
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FALSEXECUTE:: 
SSETBIT #FABSV_SCF,FABSL_FOP(R10 
BSBW HAIN_RQST_XABS 


OOO O00000000 0090900000000 SI 
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~~ I  IOO 


~SBTTL FALSEXECUTE 


RO, 50$ 
FABSL_FOP(R10),R1 


FALSLOG 
FALSW_D 
10$ 


SEND_OPTNL_MSGS 
#DAPSV_GEQ_V70,(R9) ,10$ 


SEND_ACK 
ST ALSY WILD, (RE) .208 


N 
EXIT-SUCCES 
#FALSV_WILD 
SEND_3PART_NAM 


ERR_FILE_OPEN 
#FACSV_WILD, (RB) ,608 
SEND_3PART_NAM 


ERR_FILE_CLOS 
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;++ 

; This routine performs the DAP EXECUTE file function which consists of 
submitting a command file to the symbiont manager for execution. The command 
file must exist on the destination node and it is not deleted after execution. 


Note: The DAP specification allows partner to request that DAP Extended 
Attributes messages be returned, but it is unlikely that anyone will 
make a request for anything but a Name message. 


oint 


; Entry 
JiSet submit-on-close bit 


d required XABs to XAB chain 
Open the file 
Branch on failure 
Log resultant name in print file 
Remove any XABs from chain 
Close the file and submit it 
Branch on failure 
Get FOP options 


; Log file close in print file 
; Branch if no additional information 


to return 
Build and send optional DAP messages 
Send yey message gnty if 
partner uses DAP since V7.0 
Branch if wildcard operation 
Send Access Complete message 
Exit state with success 
Branch if not wildcard gperat ten 
Send resultant name in three Name 
message rormet 
Return error in Status message 
Branch if not wildcard operation 
Send resultant name in three Name 
message format 


; Return error in Status message 


s.4 
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.SBTTL FALSDIR_PARSE 


3++ 
; This routine performs the parse phase of the DAP DIRECTORY List function. 


FALSDIR_PARSE:: Entry point 
MOVB 


W*FAL$GQ_WILDSPEC,- Store size of wildcard string used 
FABSB_DNS(R10) as default file name (namely *.*;*) 
MOVL W*FALSGQ_WILDSPEC+4,- Store address of default wildcard file 
ABSL_DNA(R10) 


specification suring buffer 
Parse the directory file specification 
Possibly disallow poor-man 
Branch on failure 
Discard default file name string 
in case an SOPEN is performed 
Add required XABs to XAB chain for 
use on subsequent S$SEARCH or SOPEN 
MOVB #<<F ABSM_SHRGET>!- Specify shared access to files 
<F ABSM_SHRPUT>! - so that subsequent SOPEN to obtain 
<F ABSM_UPI>!- file attributes will be less Likely 
0>, FABSB_SHR(R10) ; _to fail with RMSS$_FLK error 


: 
SPARSE FAB=RTO 
W CHECK FOR_PMR 


CLRB  —«sFABS$B_DNS(R10) 
BSBW  CHAIN_RQST_XABS 


$s routing 


Be Se Ge Ge Ge Ge Se Fe Se Ge Fe Ge Ge Ge Be 


BBC #NAMSV_WILDCARD,- ; Branch if non-wild expanded string 
FALSL RAM+NAMSL FNB(R8), 10$ 
SSETBIT #FALSV_WILD, (RBY : Denote wildcard operation 
10$: BRW EXIT SOCCESS : Exit state with success 
20$: BRW ERR_FILE_OPEN ; Return error in Status message 


-SBTTL FALSDIR_END 
p++ 
; This routine performs the final phase of the DAP DIRECTORY List function. 


FALSDIR_END:: ; Entry point 
BSBW CMP ; Send Access Complete message 
BRW SUCCESS ; Exit state with success 


] 
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FALACTION = STATE TABLE 4 01:36:26 VAX/VMS Macro V04-00 Page 20. 
v04-0 FALSDIR_SEARCH iets 7 1:76:09 FAL.SRCJFALACTION.MAR; 1 ° 2) | 
FE 756 .SBTTL FALSDIR_SEARCH | 
re : ++ | 
Py j 
43 135 ; This routine performs the search phase of the DAP DIRECTORY List function. | 
FE 761 ; Note: This routine performs only one search operation and therefore it 
FE 166 3 must be called repeatedly to find all requested files. | 
Be fee 
FE 765 FALSDIR_SEARCH:: ; Entry point | 
57 28 AA D0 0 FS 166 MOVL FABSL_NAM(R10) ,R7 ; Get address of NAM block 
0100 8F AB 8 76 BICwW3 P$ NAM, = ; Are any attributes requested 
50 70 AB 6 768 FALSW_BISPCAY(R8),RO  ; (excluding resultant name)? 
OA 13 ba58 ug BEQL 10$ ; Branch if not 
11 +€1 Q30B 770 BBC #NAMSV_NODE,- ; Branch if this is the end node 
05 34 A7 030D 771 NAMSL_FNB(R?), 10S ; (i.e., not an intermediate node) 
0310 178 SSETBIT #NAMS9_SRCHXABS ,NAMSB_NOP(R7) 
031 77 ; Request return of XAB info to avoid 
Bai? 774 3 apening file to get its attributes | 
0315 775 10$: SSEARCH FAB=R10 ; Search for next file specification 
08 50 3 O31E 76 BLBC RO,20$ ; Branch on failure 
FcDC’ 30 Q321 £77 BSBW FALSLOG_RESNAM ; Log resultant name in print file 
gat 
0324 780 ; Send (three part) Name messages to partner. 
O35¢ a2 | | 
| 
O8EF 30 0324 134 BSBW SEND_3PART_NAM ; Send resultant name in three Name 
BF 7 784 3; _message format | 
10 11 03 f re? BRB SEND_ATTRIBUTES ; Send requested attribute information | 
0329 787 ; 
b3S9 44 ; Note that RMSS_NMF is converted to an Access Complete message. | 
0329 790 ° 
82CA BF 50 B1 0329 791 20S: CMPW RO, #<RMSS_NMFE*XFFFF> 8; Check for normal termination 
= a ag: BEQL ; _of directory search sequence 
0958 1 B3 79 BRW ERR_FILE_OPEN ; Return error in Status message 
0839 0 0 794 308: BSBW SEND_CMP ; Send Access Complete message | 
O9AD 1 0336 795 BRW EXIT_SUCCESS ; Exit state with success 
033979 | 
3* ' 
0339 798 ; Open and close the file specified in the resultant string to obtain its 
9 799 ; attributes, unless this is an intermediate node. (If the file name given to 
4 s} 3; SSEARCH contained a node name, then attributes have already been returned.) | 
9 02 ° 
9 03 SEND_ATTRIBUTES: 3 
57 8 AA 00 9 4 MOVL FABSL_NAM(R10) ,R7 ; Get address of NAM block 
0100 8F AB D 5 BICW3 #DAPSA_DSP_NAM,- ; Are any attributes requested 
50 70 Ag 41 : PAL SW_DISPCAY (RB) ,RO : (excluding resultant name)? | 
3 13 44 BEQL 30 ; Branch if not 
i 46 88 BBC #NAMSV_NODE,- ; Branch if this is the end node 
OA se A7 48 NAMSL_FNB(R?) 10$ ; _(i.e., not an intermediate node) 
51 OC AA 09 48 810 MOVL FABSLZSTV(R105,R1 ; Branch if not partial success | 
29 —=1 4F 11 BEQL 208 ; (i.e... file attributes were returned 
51 12 3 aS requested on S$SEARCH) 


.. 2 
FALACTION = STATE TABLE ACTION ROUTINES 16-SEP-1984 01:34: AX/VMS Macro v04-00 Page 21 | 
voe-000 FALSDIR_SEARCH et 8:96:68 LPALSRCIFALACTION MAR: 1 . fay | 
46 10 1 13 BSBB MAP_SS_TO_RMS ; Convert SS code to RMS code and | 
} ee) \° BRB 608 3 Say error occurred on file open 
16 ; 
i ; Now open and close the file to obtain file attributes. Note that the required 
: 18 : XABs have already been chained into the XAB chain by FALSDIR_PARSE. 
5 0° 
14 AA B4 5 1 108: CLRW FABSW_DEQ(R10) ; Clear the old DEQ value 
58 5 SOPEN FAB=RTO ; Open the file 
350 €9 61 BLBC RO, 50$ ; Branch on failure 
4 AA DD 0364 i PUSHL FABSL_xAB(R10) ; Save XAB chain pointer 
4 AA 04 67 5 CLRL FABSL_XAB(R10) ; Remove any XABs from chain 
8 $A 6 $CLOSE FAB=RTO ; Close the file | 
24 AA 8EDO 3 7 POPL Abst. XAB(R10) ; Restore XAB chain pointer 
1¢ 50.—«E9 a3 8 BLBC RO, 708 ; Branch on failure | 
Q37A o 3 
O37A 1 ; Return (main) Attributes, Extended Attributes, and (resultant) Name messages | 
Bach 538 ; to partner as directed by request mask. | 
037A ; 4° ; 
0806 30 Baca B34 208: BSBW SEND_OPTNL_MSGS ; Build and send optional DAP messages 
037D 37 ; 
ogee Ht ; Send Acknowledge message to partner and exit state successfully. 
37D 840 | 
03 69 26 €1 039 41 30$: BBC #DAP$V_GEQ_V70,(R9),40$ ; Send aint message only if 
O70E 30 0381 ts BSBW SEND_ ; partner uses DAP since V7.0 
O9SF = 31 tte: a 40$: BRW EXIT_SUCCESS ; Exit state with success 
0387 45 ; 
B38) He : Error processing. | 
0387 848 © | 
8292 8F 50 B61 0387 49 50$:  CMPW  RO,#<RMSS_FNFO*XFFFF> = Convert RMS$_FNF to RMS$_ATR if 
05 12 038C 50 BNEQ ; SSEARCH succeeded but subsequent 
50 cOCcC 8F 3C 038 51 MOVZWL @#<RMSS_ATRO*XFFFF>,RO ; SOPEN failed because file does not 
33 26 ; _exist although directory entry does 
O8F8 H 6 9 55 608: BRW ERR_FILE_OPEN ; Return error in Status message 
0907 1 8 4 20 708: BRW ERR_FILE_CLOS ; Return error in Status message 
99 3+ 
0399 33 3; This routine maps a System Service code to an RMS completion code. 
99 859 ° | 
99 60 MAP_SS_TO_RMS: ; Entry point | 
0800 8F 51 61 99 61 CAPw R1,#SS$_ACCONFLICT ; Check for file access locked error 
12 9 6¢ BNEQ ; Branch if no matc 
50 828A 8F 3 Ap o pov cul. M<RMSS_FLKG*XFFFF>,RO ; sonvert to FLK (lower 16 bits) 
3 Ex 
24 $1 BI O3A6 B65 108: CMPW RI, #SS$_NOPRIV : Check for privilege violation | 
6 2 A 06 BNEQ ; Branch if no matc : | 
50 829A 8F 3 ~ ? poy cul. M<RMSS_PRVE*XFFFF>,RO ; sonvert to PRV (lower 16 bits) 
: Ex 
O8A8 BF 51 Bi 0381 $5 208: CMPW R1,#SS$_FILELOCKED ; Check for file deaccess locked error 


mS | 
FALACTION = STATE TABLE ACTION ROUTINES 16-5 AX/VMS Macro v04-00 Pa 
vox-600 FACSDIR. SeaREH grSEE 1882 bhi Fg:68 PAK/ MEE. bare 1ON.MAR; 1 9 9%) 
6 B BNEQ 30$ : Branch if no mat 
50 002 gf if Bs ; MOVZUL A<RMSS_ACCE*XFFFF>,RO Convert to ACC ( ae 16 bits) 
0888 8F 1 | B 30$ CMPW Rt #SS$_FCPREADERR Check for read attributes error 
0 4 BNEQ : Branch if no match; ms to ATR 
50 COCC 8F f 3 ie 40$: poy ewt. #<RMSS_ATRE“*XFFFF>,RO ; soqyers to ATR (lower 16 bits) 
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v04-000 FALSLOAD_IMAGE -SEP-1 1:16: FAL.SRCJFALACTION.MAR; 1 5) 
cB 4 -SBTTL FALSLOAD_IMAGE 
6 43 ++ 
CB 1 ; This routine performs the VMS system specific load image function to support 
CB § ; the DCL command be ry node::file.exe’'. To accomplish this, FAL ceases to use 
cB 3; DAP after the file is opened to send the image file to the VMS image activator 
CB m 2 of the requesting node. Instead, FAL sends the image file in 512 byte chunks 
cB 5 ; via Q10s until end-of-file is reached, then waits for the requesting node to 
3 § 3; disconnect the logical Link. 
03C¢B 8 
CB 8 FALSLOAD_IMAGE:: 3 entry oint 
CB 0 SCONNECT pagent ; Establish a record stream 
44 50 €9 D4 91 BLBC RO, 508 ; Branch on failure 
51 4C A&B DO 0307 35 MOVL FAL$Q_XMT4#4(R8) ,R1 ; Get address of transmit buffer 
54 AB 51 00 0308 9 MOVL R1,FAC$Q_BLD+4 (RB) ; Initialize address in BLD descriptor 
24 AB «O51 =O s«éOO SDF 94 MOVL R1,RABSL_UBF (R11) : Initialize buffer address in RAB 
1A AB BO pee? 95 MOVW FAL$W_DAPBUFSIZ(R8),- ; Put size of transmit buffer 
20 AB 3E6 «= 896 RABSW_USZ(R11) ; _in RAB ; 
57 00C0 C8 DE O3E8 897 MOVAL FALSL_STB(R8),R7 ; Get address of Statistics block 
O3ED 898 10$: $GET RAB=RT1 ; Get the next record 
18 50 9 O3F6 899 BLBC RO,20$ ; Branch on error 
54 22 AB C O3F9 900 MOVZ2WL RABSW_RSZ(R11) ,R4 ; Update BLD Gqsgr iptor with size — 
50 a8 54S s«O3FD = s«901 MOVL RG, FAC$Q_BLD(RS) : of record (512 bytes for image files) 
0401 90 SSETBIT #FALSV_LAST_MSG, (RB) ; Declare this last message to block 
FBF8" 30 0405 90 BSBW FALSTRANSMIT 3; Send record to partner 
1C A? =D6 0408 904 INCL FAL$L_XMT_DAT(R7) : Increment XMT record/block count 
20 A?) «554 ) «= C0 (0408 = 905 ADDL2 R4,FACSL_XMT_USR(R7) ; Update XMT user data byte count 
DC 11 O40F 906 BRB og : Loop until EOF or error 
827A 8F 50 B11 041% 907 20$: CMPW RO,#<RMSS_EOF&*XFFFF> ; Is it an end-of-file? 
03 12 0416 908 BNEQ  30$ : Branch if not 
O8CB 4331 0418 909 BRW EXIT_SUCCESS ; Exit state with success 
0888 31 041B 910 308: BRW EXIT_FAILURE ; Exit state with failure 
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-SBTTL FALSCONNECT 


34 
; This routine performs the DAP CONNECT record stream function. 
FALSCONNECT:: 3 Engry at 
66 AB = B4 CLRW FALSQ_RMS+2(R8) ; Initialize portion of [oe hy pyiter 
SCONNECT RAB=R11 : Establish a record stream 
OA 50 «=€9 BC RO,10$ ; Branch on failure 
SSETBIT #FALS$V_LAST MSG, (R8) ; Declare this Last message to block 
O72E 30 BSBW SEND_ACK : send Acknowledge message 
OBAF H BRW EXIT- SUCCESS ; Exit state with success 
085D BRW ERR_FILE_XFER ; Return error in Status message 


.SBTTL FALSCHECK_FTM 


3 + 

: This Cees toe Sarreaes whether or not DAP file transfer mode has been 

: specified. The file transfer mode flag stored in the FAL work area is used 
: to form the state transition status code. 
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| 
descrieter” for block 1/0 | 
| | 
| 

} 

| 


FALSCHECK FIM 3; Entry point 
ERTZV WFALSV_FTM,A1,(RB),RO ; pore yes/no re 


50 68 01 08 eply 
; Exit state with status code in RO 
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-SBTTL FALSRETRV_RAM, FALSRETRV_FTM 
p++ 
; These routines perform both DAP GET record and DAP READ block functions 
; (also called the record/block retrieval functions in the DAP specification). 
: This section includes two action routine entry points (which together 
; transfer control to four action routines) and support routines used by the 
3; action routines. 
: FALSRETRV_RAM and FALSRETRV_FTM are entry points referenced in the 
3 state transition table which dispatch to four related but distinct input 
; action routines that perform the requested data retrieval operation. Each 
; of these routines is specialized to use a combination of either record 1/0 
3; or block 1/0 in either record access mode (RAM) or file transfer mode (FTM). 
FALSRETRV_RAM:: ; Entry point 

BBS #FALSV_BLK_I0,(R8),10$ ; Branch if block I/0 access 

BRW FAL$GET_RAR ; This is a GET in record access mode 
10$: BRWw FALSREAB_RAM ; This is a READ in record access mode 
FALSRETRV_FIM:: ; Entry point 

BBS #FALSV_BLK_10,(R8),10$ ; Branch if block 1/0 access 

BRW FALSGET_FTA ; This is a GET in file transfer mode 
10$: BRW FALSREAB_FTM ; This is a READ in file transfer mode 


+ 


Compute new cumulative CRC checksum value for the file based on the current 


; record/block and the previous cumulative CRC value (if the CRC checking 


COMPUTE_XMT_CRC: 
BBC 


10$:  MOVAL FALSL_STB(R8),R7 


On output RO-R 


option has been requested by the partner process). 
Note that this routine is called only from the GET and READ code paths. 


On input oe is descriptor of user record/block. 
is destroyed and DAPS$L_CRC_RSLT is updated. 


Entry point 

Branch if checksum option not 
requested by pceege ing node 
Compute CRC value (destroying RO-R3) 
using result of previous CRC value 
calculation as initial CRC value 
Store resultant CRC value 


#DAPSV_RET_CRC,- 
FAL$B_ACCOPT(R8) 108 
CRC W*FALSCRC_TABLE,- 
DAPS$L_CRC-RSLT(R9) .- 


R4,(R 
MOVL RO,DAPSL_CRC_RSLT(R9) 


Update statistics relative to the transmission of user data to the partner 
process. 


: Get address of Statistics Block 

INCL FALSL~XMT_DAT(R7) : Increment XMT record/block count 

ApoLe R4,FACSL_RMT_USR(R7) : Upgate XMT user data byte count 
3 Ex 
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: Perform record terminator grocess ing if the record format of the file is 
3; one of the three flavors of stream (i.e., stream, stream_LF, or stream_CR). 


; On input R3 is address of Last 


: byte in record + 1. 
; On output RO is destroyed and R35 is updated if a terminator is appended. 


CHECK_STREAM: ; Entry point 
ASSUME FABSC_UDF EQ 0 | 
ASSUME FABSC_FIX EQ 1 
ASSUME FABSC_VAR EQ § 
ASSUME FABSC_VFC EQ 
ASSUME FABSC_STM EQ 4 | 
ASSUME FABSC_STMLF EQ 5 
ASSUME FABSC_STMCR EQ 6 
SCASEB SELECTOR=FABS$B_RFM(R10)=- ;Dispatch on record format | 
BASE SAF ABSC_STR- ; 


Record format: 
™ 


RIPON 3 2 3 2 3 3 9 B@QOO OOOO OOO OOO 


28S SBS SSS SS Soest ttn 


1000 
1 1 
1008 
1004 
} 5 
1338 
1009 
1010 
: 1 
1018 
1014 
1015 
1016 : 
1017 3 
1018 10$- 3 
1019 40$- : =STMLF | 
1020 50$- ; STMCR 
1021 ; _UDF, FIX, VAR, and VFC 
05 Q47E 1 § RSB : Exit 
toF 1094 | 
: : 2 3; Stream format--append CRLF if no valid terminator character found. 
F 1027 ° | 
54 05 F 1028 10$: TSTL RG : Branch if null record 
OF 13 $3 BEQL 20$ _ : 
50 FF A3 9A 0483 1030 MOVZBL <-1(R3),R0 3; Get record terminator character 
2 7 1031 CMPB RO,#31 ; Branch if out-of-range for a stream 
06 1A O48A 1 3 BGTRU 2 ; terminator character 
05 000O'cCF 50 £0 048C 103 BBS RO,W*FALSSTM_MASK,30$ ; Branch on valid stream terminator 
83 OAOD BF 80 04 ; 1034 208: MOVW © #CRLF,(R3)+ : Add CRLF to terminate record 
05 04 1035 30$: RSB : Exit 
04 1 $ 
04 1 3 
Be 1038 ; Stream_LF format--append LF to record. 
4 : rt , | 
83 OA 90 8 Bei 40$: MOVB #LF,(R3)+ ; Add LF to terminate record 
05 04 1 rk: RSB ; Exit 
49C 196 | 
49C 1044 ; | 
49C 1045 ; Stream_CR format--append CR to record. 
29¢ 10G? | 
83 OD 90 O049C 1048 50$: MOVB #CR,(R3)+ ; Add CR to terminate record 
05 Q49F 1049 RSB : Exit 


esd 


FALSGET_RAM subsection SEP-1984 


4AQ0 1051 -SBTTL FALSGET_RAM subsection 
4A0 1 3g 
4A0 1 
4A0 1054 
4A0 1055 
AS 1888 
4AQ 1058 FALSGET_RAM:: 3 
57 53 00 aN 1988 “MOVL R3,R7 3 
Ocas 108) ; 
4A 1386 : Build and send Data pessoge to partner. 
4A3 1065 ; If VFC format, record hea 
BA REE 
04 69 24 £0 O4A 1066 BBS #DAPSV_GEQ_V56,(R9), 108 ; 
O4A7 106 SSETBIT #FALSVLAST_MSG,(RBS ~~; 
50 (08 00 4AB 1068 10$:  MOVL #DAPS$K~DAT_ASG,RO ; 
FB4F* 30 O4AE 1069 BSBW FAL SBUTLD_READ : 
83 4 0481 1070 CLRB (R3)+ 3 
56 653~—C«# O4B5 1071 MOVL R3,R6 ; 
03 «1F AA 1 0486 1978 cue FABSB_RFM(R10) ,#FABSC_VFC 
2c ABE O53) «DO 04BC «(1075 MOVL R3,RAB$L_RHB(R11) : 
50 537" mS mA co 1976 WOvZBL eres _FSZ(R10) RO ; 
Oe a 
1A AB 31 A3 CF 1080 SUBW3 Ri .FALSW DAPBUFSIZ(RB) .~j 
06 1F AA 1 D3 1088 CPB FABSB_RFA(R10) ,AFABSC_STA 
20 AaB OCO2:StséA DB 1084 SUBW2 #2,RABS$W_USZ(R11) : 
DF 1086 30$:  $GET  RAB=R11 F 
20 50 £9 04E8 1087 BLBC = RO, 508 ; 
54 53° AB ¢ EB 1088 WOVZuL RABSY_RSZ(R11) .R4 : 
Fe 1090 SBW_  CHECK_STREAM : 
F5 1091 SUBL3 R3R ; 
9 109¢ BSBW = FALSBUILD_TAIL ; 
FC 93 BSBW § COMPUTE_XMT_CRC ; 
FF 1035 BSBW FALSTRANSMIT : 
6 1099 
0 1938 ; Send Status message to partner with RFA 
1100 ° 
6 1101 -(R9) 408 ; 
6 11 : * (RB) : 
A 11 N, (RB) : 
E 1104 : 
1105 RO ; 
19 11 8 ; 
1§ 11 ; 


~ STATE TABLE ACTION Routines * ° Mgr 5b m 1384 0:36:86 


AX/VMS Macro v04-00 Page 
FAL.SRCJFALACTION.MAR;1 


3? 
; Perform the DAP GET record function in record access mode. This mode 
3 requires that an explicit Status message be returned with each Data message. 


GET specific code segment 
Save address of start of buffer 


er is prefixed to the record in one data field. 


Branch if partner uses DAP since V5.6 

Declare this last message to block 

Get message type value 

Construct message header 

Do not return record number 

Save current address (i.e., start of 
DAP FILEDATA field in message) 


Branch if not VFC format 

Store address of record header buffer 

Get size of record header 

Skip over RHB storage area in DAP msg 

Store buffer address 

Compute # bytes preceding data record 

Compute max # bytes that can be read 
into rest of buffer 


Branch if not STM, STMLF, or STMCR 
Reserve space in message buffer for 

subsequent addition of terminator(s) 
Get the record 


; Branch on failure 


Get record size 
Update next byte pointer 


; Process stream file terminato: 


Compute size of FILEDATA field 


; Finish building messag 


e 
Compute CRC value sGestroying RO-R3) 
and update XMT data statistics 

Send Data message 


and BKT fields. 


Branch if partner uses DAP before V5.6 
Return RFA of record 

Return record number (meaningful for 
REL file or fixed length SEQ file) 
Restore success code 

Convey success in Status message 

Exit state with success 


FAI 
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FALSGET_RAM subsection 5-SEP=-1984 01:16:09 (CFAL.SRCJFALACTION.MAR; 1 a 
077C «=—331 (0518 =91108 50S: BRW ERR_FILE_XFER ; Return error in Status message 
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-SBTTL FALSGET_FTM subsection 


1 = $EP-1984 1:34:36 YAX/ViS Macro ¥06—00 Page 38) | FA 


3+ 
; Perform the DAP GET record function in file transfer mode. This mode 
; allows Data messages to be blocked together and pipelined on return. 


FALSGET_FTM:: 


; GET specifi d 
MOVL R3,R7 pec c code segmen 


t 
7 3 ; Save address of start of buffer 


—@w 

~c 
a 

<n 


and send Data message to partner. 
C format, record header is prefixed to the record in one data field. 
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Sete te Ge 


50 


= 
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a a a dd dd 
PVP Be BS BS BE BE WWII NAIA ANNI MONINNIIN 2 2 OO ee 
FAN (OO DNAUE WN 9 OO NAU EWN 0 OD NOUS WN" OOONOUSWIN—0O CF 


MOVL § #DAPSK_DAT_MSG,RO 
BSBW FAL SBUTLD_READ 


MOVL R3,R6 


CMPB ss FABSB_RFM(R10) ,#FABSC_VF 


» R3,RABSL_RHB(R11) 
MOVZBL Fabs _FSZ(R10) ,RO 


10$:  MOVL  R3,RABSL_UBF(R11) 
R7_R3,R1 


SUBW3 -R1. FAL$W_DAPBUFSIZ(R8),-: 


RABSW_USZ(R11) 


CMPB —s- FABSB_RFM(R10) ,#FABSC_STM 


20 
SUBW2  #2,RAB$W_USZ(R11) 
20$:  $GET  RAB=R11 
BLBC = RO, 308 
MOVZ2WL RABSW_RSZ(R11),R4 
ADDL2 4 
BSBW_  CHECK_STREAM 
R6,R3,R4 
BSBW = FAL SBUILD_TAIL 
BSBW COMPUTE_XAT_CRC 
BSBW =—- FALS TRANS 


MIT 
BRW EXIT SUCCESS 
ERR_FILE_XFE 


wa 
oOo 
tad 
wo 
» 
c 


Get message type value 

Construct message header 

Do not return record number 

Save current address (i.e., start of 
DAP FILEDATA field in message) 


Branch if not VFC format 

Store address of record header buffer 

Get size of record header 

Skip over RHB storage area in DAP msg 

Store buffer address 

Compute # bytes preceding data record 

Compute max # bytes that can be read 
into rest of buffer 


Branch if not STM, STMLF, or STMCR 
Reserve space in message buffer for 
subsequent addition of terminator(s) 

Get the record 

Branch on failure 

Get record size 

Update next byte pointer 

Process stream file terminator 
Compute size of FILEDATA field 
Finish byt setap message 

Compute CRC value Seestrey ing RO-R35) 
and update XMT data statistics 

Send Data message 

Exit state with success 

Return error in Status message 
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7B (11 § -SBTTL FALSREAD_RAM subsection 
BY 
ha 
78 11 § ; Perform the DAP READ block function in record access mode. This mode 
378 1189 ; requires that an explicit Status message be returned with each Data message. 
78 1162 ° 
$78 Hi FALSREAD_RAM: : ; READ specific code segment 
7B 1165; 
578 1196 ; Build and send Data message to partner. 
are lige: 
04 69 24 #«&€0 0576 1392 BBS #DAPS$V_GEQ_V56,(R9),10$ ; Branch if partner uses DAP since V5.6 
57F 1170 SSETBIT #FALSV_LAST MSG, (RBS ; Declare this Last message to block 
50 08 8 583 1171 108: MOVL #DAPSK~DAT_ASG,RO ; Get message type value 
FA77" 30 0586 1108 BSBW FAL SBUILD_READ ; Construct message header 
Hh 94 0589 117 CLRB (R3)+ 3 Do not return virtual block number 
56 DO 05 1174 MOVL R3,R6 ; Save current address (i.e., start of 
O58E 1175 ; _DAP FILEDATA field in message) 
24 ABE 53)=—si#s«éO#S'8B 1108 MOVL R3,RABS$L_UBF (R11) ; Store buffer address 
3C AA BO 0592 117 MOVW FABSW_ LS(R10),- ; Request exactly one block 
20 AB 0595 1178 RABSW_USZ(R11) : 
0597 1179 SREAD RAB=RT1 ; Read the block 
22 50 §? BeAg 1180 BLBC RO,30$ : Branch on failure 
54 22 AB C OSA3 1181 MOVZWL RABSW_RSZ(R11) RG ; Get number of bytes read 
5354 8 OSA7 11 ¢ ADDL2 R4, 3; Update next byte pointer 
FASS" 30 OSAA 11 BSBW FALSBUILD TAIL : Finish byt ding message 
FEAS 30 OSAD 1184 BSBW COMPUTE _XAT_CRC ; Compute CRC value edestroying RO-R3) 
0580 1185 3 and update XMT data statistics 
FA4D' 30 Bee8 1186 BSBW FALSTRANSMIT ; Send Data message 
058 1187 
0583 1188 ; 
0583 1189 ; Send Status message to partner with RFA field. 
Bebb 1 
0B 69 24 #€1 O58 1136 BBC #DAP$V_GEQ_V56,(R9),20$ ; Branch if partner uses DAP before V5.6 
0587 119 SSETBIT #FALSV_RET_RFA, (R8) ; Return RFA of record 
50 08 AB 0 0O5BB 1194 OVL RABSL_STS(R11),RO ; Restore success code 
071 1 OSBF 1195 EXIT_STS_SUC ; Convey success in Status message 
0721 1 b3Cg 1196 gos: EXIT-SuCTESS 3 Exit state with success 
O6CF 31 O5C5 1197 308: BRW ERR_FILE_XFE ; Return error in Status message 


ee 


1 6 | 
FALACTION = STATE TABLE ACTION ROUTINES 16-SEP-1984 01:34: AX/VMS Macro V04-00 Page 31 
v0%-000 FALSREAD_FTM subsection et 1376568 LRAL SRCIPALACTION MAR: 1 . by 
2f 1386 -SBTTL FALSREAD_FTM subsection 
C 1 3+ | 
at 1 ¢ ; Perform the DAP READ block function in file transfer mode. This mode 
45 ! Z ; allows Data messages to be blocked together and pipelined on return. 
f 1005 ° | 
cs 1 FALSREAD_FTM:: ; READ specific code segment 
0200 8F 3C AA 81 O5C8 1 5 CMPW FABSW_BLS(R10) ,#512 ; Branch if we're using 2 nonstandard 
4 12 QSCE 1 38 BNEQ 10$ ; block size 
68 ¢ E1 Q5D0 1209 BBC #FALSV_DIS_RBK,(R8),- ; Are multi-block reads desired? 
0 503 1 19 READ_F TM_RBK i; Yes, take the normal path 
0061 31 Q504 1211 108: BRW READ_F TM_NORBK ; No, read one block at a time 
O87 1318 
3% 
0507 1214 ; This code path utilizes multi-block reads from disk where the buffer size | 
0507 1215 ; is determined by the value in FAL$B_RBK_CACHE. Note that use of this RMS 
0507 1 1g ; multi_block cache optimization for Block 1/0 file transfer mode retrieval 
B20) ! 4 3; necessitates an additional copy of the data in memory to be performed. 
0507 1219 | 
5D? 1220 READ_FTM_RBK: ; Enable buffering of RMS blocks 
66 AS B5 0507 1221 TSTw FALS$Q_RMS+2(R8) ; Branch if there is data in RMS 
23. 12 OSDA 1 § BNEQ 10$ ; _buffer to process 
64 AB BO OS5DC 1 MOVW FALSQ_RMS(R8),- ; Store buffer size 
20 AB OSDF 1224 RABSWUSZ(R115 : | 
68 AB DO O5E1 1 $2 MOVL FALS$Q_RMS+4(RB) ,- ; Store buffer address 
24 AB O5E4 \§ 6 ABSL_UBF (R11) 5 
QSE6 1227 SREAD RAB=RT1 ; Read specified number of blocks 
4350 €9 OSEF 1228 BLBC RO,308 ; Branch on failure 
38 AB OG Bare 1229 CLRL RABSL_BKT(R11) ; Zero VBN value to imply use of NBP 
O5F5 1230 ; in case Control message initiated 
OSF5 1231 ; _file transfer with a non-zero VBN | 
22 AB «©BO O«(COSFS «61 ¢ MOVW RABSW_RSZ(R11),- ; Save number of bytes actually read 
66 AS O5F8 1 FAL$Q~RMS+2(RB) ; into buffer 
68 AB DO O5FA 1234 MOVL —- FALSQ7RMS#4 (RB) ,- : Initialize next byte pointer to | 
6C AB bere : 2 FALSL-RMS_PTR(R8) :; beginning of buffer 
OSFF 1237 ; | 
OSFF 1238 ; Build and send Data message to partner. 
ORFF 1888 | 
54 3C AA 3C OSFF 1241 10$: MOVZWL FABSW_BLS(R10) ,R4 ; Get block size 
54 66 AB OBI 603 1 4¢ CMPW = FALSQ"RMS+2(RB5 ,R4 ; Is there at least one full block left? | 
04 E 06 124 BGEQU ; Branch if yes 
66 AB =35C rtit4 1244 MOVZWL FALS$Q ght ty F R4 ; Otherwise get partial block size 
66 AB 54 A 60D 1245 20$: SUBW2 4, FACSQ_RMS+2(RB) 3; Update remaining byte count 
08 p 611 1246 MOVL  #DAPSK_DAT_MSG,RO : Get message type value | 
F9E9" 614 124 BSBW FAL SBUTLD READ ; Construct message header 
; 94 0617 1248 CLRB (R5)+ ; Do not return virtual block number 
56 DO 0619 1249 MOVL R3,R6 ; Save current address (i.e., start of 
61c 1 29 : DAP FILEDATA field in message) 
63 6C B8 54 28 061C 1251 MOVC3 R4,@FALSL_RMS_PTR(RB), (RS) 
6C a é) ) 621 1 26 MOVL R1,FALSL_RMS_PTR(R8) ; Copy data and update next byte pointer | 
54 COS 6 625 1 SUBL3 R35, : pute size of FILEDATA field | 
F9D4" 629 1254 BSBW FALSBUILD TAIL 3 Finish 2 message 
FE25 62C 1255 BSBW COMPUTE_XAT_CRC ; Compute CRC value (destroying RO-R3) 
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$ , y § ; _and update XMT data statistics 
FOCE’ 30 oo. BSBW FALSTRANSMIT ; Send Data message 
peg! 1 06 1 3 BRW EXIT_SUCCESS ; Exit state with success 
065F 1 ! é0 30S: BRW ERR_FILE_XFER ; Return error in Status message 
6 1261 ;+ 
6 1 6¢ ; This code path does not use the RMS multi-block cache optimization for 
? : o7 3; block 1/0 file transfer mode retrieval. 
! 68 ; Note that this represents the FAL functionality for the VMS V3.0 release. 
638 1267 | 
: : $3 READ_F TM_NORBK: ; Disable buffering of RMS blocks 
6 1270 ; 
38 : re ; Build and send Data message to partner. 
638 1273 ° 
50 08 00 ae 1274 MOVL #DAPSK_DAT_MSG,RO ; Get message type value 
F9C2" 30 0638 1275 BSBW FAL SBUTLD_READ ; Construct message header 
8 94 063E 1276 CLRB (R3)+ ; Do not return virtual block number 
6 CUS DO 0640 1277 MOVL R3,R6 ; Save current address (i.e., start of 
0643 1278 ; DAP FILEDATA field in message) 
24 ABE 53 «=O 0643 «1279 MOVL R3,RABSL_UBF (R11) ; Store buffer address 
3¢ AA «BO 0647 1280 MOVW  FABSW_BLS(R10),- : Request exactly one block 
20 AB 064A 1281 RAB$SW_USZ(R11) : 
Bose 1 8 SREAD RAB=RT1 ; Read the block 
16 50 €9 0655 128 BLBC RO,10$ ; Branch on failure 
38 AB D4 «60658 «1284 CLRL =—- RABSL_BKT(R11) ; Zero VBN value to imply use of NBP 
0658 1285 ; in case Control message initiated 
0658 1286 :; file transfer at a non-zero VBN 
54 22 AB 3C 0658 1 Hi MOVZWL RABSW_RSZ(R11),R4 ; Get number of bytes read 
53 54 CO O65F 1288 ADDL2 5 ; Update next byte pointer 
F99B' 30 bene \¢o) BSBW FALSBUILD TAIL 3 Finish out nding message 
FDEC 30 0665 1290 BSBW COMPUTE _XAT_CRC ; Compute CRC value (destroying RO-R3) 
0668 1291 3; _and update XMT data statistics 
F995" 30 0668 1 8 BSBW FALSTRANSMIT ; Send Data message 
0678 Hs 0668 129 BRw EXIT_SUCCESS ; Exit state with success 
0626 1 066E 1294 10$: BRW ERR_FILE_XFER ; Return error in Status message 
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++ 
These routines perform both DAP PUT record and DAP WRITE block functions 
(also called the record/block storage functions in the DAP specification). 


This section includes two action routine entry points (which together 
hy eoeeees to four action routines) and support routines used by the 
on routines. | 


FALSSTORE_RAM and FALSSTORE_FTM are entry points referenced in the 

atare transition table which dispatch to four related but distinct gutput 

action routines that perform the requested data storage operation. Eac 
of these routines is specialized to use a combination of either record 1/0 
or block I/0 in either record access mode (RAM) or file transfer mode (FIM). 


OOCOOCOOCGCOCOCOCOOOCOOOOOOCOOO -- 
Be Oe Oe Oe Oe Oe Oe Be Oe Os Oe ees 


PAAAAAAAPSAAOAOSCAASASCAASAS On 


129 
158 
1595 
1301 
Hi 
1304 
: 05 
1309 
1308 
1309 
1310 
1311 
i i FALSSTORE_RAM E i | 
33 3; Entry point 
03 68 09 f0 1314 BBS #FALSV_BLK_10,(R8),108 ; Branch if block 1/0 access | 
002C 1 1315 BRw FALSPUT_RAM ; This is a PUT in record access mode 
0088 = 31 1318 10$: BRW FALSWRITE_RAM ; This is a WRITE in record access mode 
0678 1318 FALSSTORE_FIM:: ; Entry point 
03 68 09 59 0678 13)2 BBS #FALSV_BLK_I0,(R8),10$ ; Branch if block 1/0 access 
007C 1 O67F 1320 BRwW FALSPUT_FTA 3; This is a PUT in file transfer mode 
OOE3 31 0682 1321 10$: BRid FALSWRITE_FTM ; This is a WRITE in file transfer mode 
be8s 1355 s+ | 
0685 13 4: Compute new cumulative CRC checksum value for the file based on the current 
0685 136? 3; record/block and the previous cumulative CRC value (if the CRC checking 
pege 3 g 3; option has been requested by the partner process). 
0685 1328 ; Note that this routine is called only from the PUT and WRITE code paths, 
bese ' 4 ; and from the FALSUPDATE routine. 
0685 1331 : On input <R4,R5> is descriptor of user record/block. | 
bese ' 38 ; On output RO-R3 is destroyed and DAP$L_CRC_RSLT is updated. | 
O68 1334 ° | 
0685 1335 COMPUTE_RCV_CRC: : Entry point | 
03 €1 0685 1336 BBC #DAPSV_RET_CRC,- ; Branch if checksum option not 
OC O1F5 C8 peg? 1337 FAL$B_ACCOPT(R8) ,10$ 3; requested by eccessing node 
OOOO'CF 0B 06 1338 CRC W*FALSCRC_TABLE,- ; Compute CRC value (destroying RO-R3) 
20 Ad oot 1339 DAPSL_CRC_RSLT(R9) ,- ; using result of previous CRC value 
65 54 691 1340 R4,(R5) ; calculation as initial CRC value 
20 a9 «= 550~—t—«é#D begs : é MOVL RO,DAPSL_CRC_RSLT(R9) ; Store resultant CRC value 
697 1343 ; | 
$e97 1344 ; Update statistics relative to the reception of user data from the partner | 
697 1345 ; process. 
gr 1s | 
57 00cO C DE 0697 1 $8 108: MOVAL FALSL_STB(R8),R7 ; Get address of Statistics Block 
A D 69C 134 INCL FAL$L~RCV_DAT(R7) : Increment RCV record/block count 
OC A?) «554 3 +43 29 ADBL2 R4,FACSL_RCV_USR(R7) : Update RCV user data byte count 
° x 
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FALSPUT_RAM subsection -SEP-1984 01:16: FAL.SRCJFALACTION.MAR; 1 (24) | 
6A4 1353 -SBTTL FALSPUT_RAM subsection 
AUS 
6Aq 1 § ; Perform the DAP PUT record function in record access mode. This mode 
6A4 1357 ; requires that an explicit Status message be returned. 
GAG 1359 * 
6A4 1360 FALSPUT_RAM:: ; PUT specific code segment 
6A4 1361 
6A4 1362 ;+ 
6A4 1 8 ; Process the DAP record number field of the Data message. 
6A4 1364 ; For random access by ner value for a relative (or fixed pengeh sequential) 
Bene : 6g ; file it contains the relative record number. Otherwise, it is mot used. 
6A4 1367 * 
1269 00 £1 Q6A4 1368 BBC #DAPSV_X_RECNUM,(R9),10$; Branch if DAP record number field 
06A8 1369 ; was null (as opposed to specified 
06A8 1370 ; _with a zero value) 
01 1€ AB 91 O6A8 1371 CMPB RABSB_RAC(R11) ,#RABSC_KEY;Branch if not random access | 
OC 12 O6AC 1376 BNEQ 3; _by key value | 
20 1D AA 91 Q6AE 137 CMPB FABSB_ORG(R10) ,#FABSC_IDX;Branch if IDX organization 
06 13 0682 1374 BEQL 10$ ; Fall thru if SEQ or REL organization 
40 AY DO 06B4 1375 MOVL DAPSL_RECNUM1(R9) ,- ; Update relative record number 
OFC C8 0687 1376 FALSL_NUMBER(R8) ; for next PUT operation 
sh 1 
O6BA 1379 ; Process the DAP FILEDATA field. 
noes : $ ; If VEC format, it contains the record header prefixed to the record. | 
06BA 1382 ° | 
54 44 A9 7D O6BA 1 HE 10$: MOVQ DAPS$Q_FILEDATA(R9),R4 ; Store record descriptor in <R4,R5> 
FFC4 30 O6BE 1384 BSBW COMPUTE _RCV_CRC ; Compute CRC value sdestroying RO-R3) 
pee 1 $3 ; and update RCV data statistics 
03 1F AA 91 06C1 1386 CMPB ss FABSB_RFM(R10) ,#FABSC_VFC 
OE 12 06C5 1387 BNEQ 208 ; Branch if not VFC format | 
2C ABE 55 pO 06C? 1388 MOVL R5,RABSL_RHB(R11) : Store address of record header buffer 
52 3F AA 9A 06CB 1389 MOVZBL FABSB_FSZ(R10) ,R2 : Get size of record header 
54 52 ce O6CF 1390 SUBL Rg Re ; Compute size of record 
oo ie? & #3) 1391 ADDL R2,R5 ; Compute address of record 
22 AB «254 «BO 0605 1 3 208: MOVW = R4,RABSW_RSZ(R11) ; Store record size 
28 AB O55 )=—0s«6D9 = 139 MOVL R5,RABSL_RBF (R11) ; Store record address | 
06DD 1394 $PUT RAB=R11 ; Put the record 
12 50 €9 Q6€&6 1395 BLBC RO,40$ ; Branch on failure 
OCes 1399 
6E9 1598 ; Send Status message to partner with RFA and BKT fields. 
SES 1400 
0B 69 24 €1 Q6E9 1401 BBC #DAP$V_GEQ_V56,(R9),30$ ; Branch if partner uses DAP before V5.6 
6ED 1086 SSETBIT #FALSV_RET_RFA, (R8) ; Return RFA of recor 
6F1 140 SSETBIT #FALSV_RET_RECN, (R8) ; Return record number (meaningful for 
ore 1688 ; _REL file or fixed length SEQ file) 
05E1 1 Q6F5 1405 BRW EXIT_STS_SUC : Convey success in Status message 
0368 1 06F8 1406 30$: BRWwW EXIT-SUCTESS ; Exit state with success 
0599 1 O6FB 1407 408: BRW ERR_FILE_XFER ; Return error in Status message 
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6FE 1409 -SBTTL FALSPUT_FTM subsection 
6FE 1319 
6FE 1411 34 | 
6FE et : Perform the DAP PUT record function in file transfer mode. This mode 
ore 1317 ; allows Data messages received to be blocked together and pipelined. 
6FE 1415 
6FE 1416 FALSPUT_FTM:: ; PUT specific code segment 
O6FE 1417 
GFE 1418 + | 
6FE 1419 ; Process the DAP FILEDATA field. 
Bere 1° y ; If VFC format, it contains the record header prefixed to the record. | 
O6FE 1422 ° 
54 44 A9 7D O6F 14 : MOVaQ DAPS$Q_FILEDATA(R9),R4 ; Store record descriptor in <R4,R5> 
FF80 30 0702 1424 BSBW COMPUTE _RCV_CRC ; Compute CRC value (destroying RO-R3) 
0705 1425 ; and update RCV data statistics 
03 IF AA 91 0705 1426 CMPB =—s- FABSB_RFM(R10) ,#FABSC_VFC 
0 12 0709 oy 44 BNEQ 10$ ; Branch if not VFC format 
2c AB 5 DO O70B 1428 MOVL R5,RABS$L_RHB(R11) 3; Store address of record header buffer 
52 3F AA 9A O70F 192 MOVZBL FABSB_FSZ(R10),R2 ; Get size of record header 
54 52 C2 0713 1430 SUBL R2,R4 : Compute size of record 
55 52 CO 0716 1431 ADDL R2,R5 3; Compute address of record 
22 AB «254 = =«2B0 (0719 1436 108: MOVW R4,RABSW_RSZ(R11) 3; Store record size | 
28 AB O55 =O s«071D = 143 MOVL R5,RABSL_RBF (R11) ; Store record address 
0721 1434 $PUT RAB=R11 : Put the record 
03 50 f? 072A 1435 BLBC RO,20$ ; Branch on failure 
0586 «31 07e0 1436 BRW EXx{T SUCCESS : Exit state with success 
0564 31 0730 1437 208: BRwW ERR_FILE_XFER ; Return error in Status message | 
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| 
-SBTTL FALSWRITE_RAM subsection 


vp 


3 requires that an explicit Status message be returned. 


9 

- 

é : Perform the DAP WRITE block function in record access mode. This mode 
i 


FALSWRITE_RAM:: 3; WRITE specific code segment | 


+ 

Process the DAP + number field of the Data message. 

For random block 5 sees. if the RECNUM field of the Data message is 
explicitly specif =f t supersedes the KEY field of the Control message. 


| 
BBC #DAPS$V_X_RECNUM,(R9),10$; Branch if DAP record number field 


05 69 OO €1 
3; was null (as sppeces to specified 
3; with a zero valu 
40 Ad =—vO MOVL DAP$L_RECNUM1(R9) ,- ; Store virtual block number in BKT 
38 AB RABSL_BKT(R11) : field of RAB 
a* 
; Process the DAP FILEDATA field. 
54 44 A9 7D ; Store block descriptor in <R4,R5> 
FF42 30 BSBW COMPUTE _RCV_CRC ; Compute CRC value (destroy ying *“RO-R3) 
; and update RCV data statistics 
22 AB «(54~—~=«O«BD MOVW R4,RABSW_RSZ(R11) 3; Store block size 
28 AB O55~—Stsé«éOD MOVL R5,,RABSL_RBF (R11) ; Store block address 
S$WRITE RAB=R11 3 : 
OE 50 =€9 BLBC RO,30 : Branch on failure 


> Send Status message to partner with RFA field. 


BBC #DAPS$V_GEQ_V56, (R9) ,20$ 
SSETBIT #FALSV_RET_RFA, (R8) 
BRW EXIT_STS_SOC 

gos: BRW EXIT-SuCTESS 

0$: BRW ERR_ 


| 
| 
Write the block | 
| 
Branch if partner uses DAP before V5.6 | 
Return RFA of record 

Convey success in Status message 
Exit state with success 


Return error in Status message 
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8 
9 
0 
4 
5 
6 
7 
8 
9 
0 
: 10$: MOVQ DAP$Q_FILEDATA(R9) ,R4 
6 
7 
8 
9 
0 
4 
5 
6 
7 
8 
9 
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FALACTION - STATE TABLE ACTION ROUTINES 16-SEP-1984 01:34: AX/VMS Macro V04- 
v04-000 FALSWRITE_FTM subsection -$Ep=1 3b 1376569 FAL.SRCJFALACTION.MAR; 1 vo4 
768 14 § -SBTTL FALSWRITE_FTM subsection 
768 14 
768 1484 ;+ 
768 1485 ; Perform the DAP WRITE block function in file transfer mode. This mode 
th 1? § : allows Data messages received to be blocked together and pipelined. 
Ore C88 arswaite_ftn UnITE epecttse. cod | 
JFTM:: $ specific code segment 
0768 1490 ' . 
B78 1491 3+ 
76 1438 3; Process the DAP FILEDATA field. 
Pog 1495 ;- 
768 1494 
54 44 A9 7D 0768 1495 mMOVQ DAP$Q_FILEDATA(R9),R4 ; Store block descriptor in <R4,R5> 
FFI6 §=6©30 O76C 1496 BSBW COMPUTE_RCV_CRC ; Compute CRC value scestreying RO-R3) 
O76F 1497 ; _and update RCV data statistics | 
0200 8F 3C on # b7er 1338 ee 1 yamaha ; Breree ‘f we're using a nonstandard | 
3 ock size 
ae eae $359 1500 BBC #FALSV_DIS_RBK,(R8),- ; Are multi-block writes desired? | 
03 077A 1501 WRITE_FTM_R 3; Yes, take the normal path 
0064 31 0778 1306 108: BRW WRITE_F TM_NORBK ; No, write one block at a time | 
O77E 150 
O77E 1504 ;+ 
O77E 1505 ; This code path utilizes multi-block writes to disk where the buffer size 
O77E 1506 ; is determined by the value in FAL$B_RBK_CACHE. Note that use of this RMS 
QO77E 150” ; multi_block cache optimization for Block 1/0 file transfer mode storage 
BooE 1388 3 necessitates an additional copy of the data in memory to be performed. 
O77E 1510 
O77E 1511 WRITE_FTM_RBK: ; Enable buffering of RMS blocks 
00 €1 O77E 1318 BBC #RABSV_ASY,- ; Branch if no asynchronous write 
1A 04 AB 0780 151 RABSL_ROP(R11),20$ ; operation requires a wait call 
08 AB BS «(0785 «(1514 TSTW RABSL_STS(R11) ; Increment wait counter if write 
04 12 0786 1515 BNEQ 1 3 operation is still pendiop (but 
OOOO'CF D6 0788 1318 INCL W*FALSGL_WRITWAIT ; issue wait request regardless) 
Bree 1517 10$: SWAIT AB=R ; wait for asynchronous write to finish 
0795 1518 SCLRBIT #RABSV_ASY ,RABSL_ROP(R115;Clear asynchronous operation flag 
42 50 E—9 Q79A 1519 BLBC p ; Branch on write failure 
66 AB =54 AO 079D 1520 208: ADDW R4,FAL$Q_RMS+2(R8) ; Update byte count 
6C B8 865) «6540S 2B «(O7A1 «1521 MOVCS R4,(R5),SFALSL_RMS_PTR(RB) 
6C AB 53 DO O7A6 15 ; MOVL R3,FALSL_RMS_PTR(RB) ; Copy data and update next byte pointer 
66 AB AS O7AA 15 SUBW3 FAL$Q_RMS+2(R8) .- ; Compute number of unused bytes in RMS 
50 64 AB O7AD 1524 FALSQ~RMS(R8) ,RO : buffer | 
3c AA «50—séid 9780 13 5 CMP RO FAB$W_BLS(R10) : Branch if there is at least one full 
26 «1E 0784 1526 BGEQU § 30$ : block left in RMS buffer 
66 AB = B0 5788 1527 MOVW FALSQ_RMS+2(R8B) ,- ; Store buffer size 
22 AB 789 1528 RABS$SW_RSZ(R11) ; 
68 A8 00 g7ee 1529 MOVL FALSQ_RMS+4(R8) ,- ; Store buffer address 
28 AB 78 1 0 RABSL_RBF (R11) : 
07¢0 1531 SSETBIT #RABSV_ASY,RABSL_ROP(R11);Set asynchronous operation flag 
ore 15 § SWRITE RAB=R1T 3; Write specified number of blocks 
0—E 50 €9 O7CE 15 BLBC RO,40$ ; Branch on failure 
38 AB OS «(0701 «1534 CLRL —s RABSL_BKT(R11) : Zero VBN value to imply use of NBP | 
704 1535 ; in case Control message initiated 
704 1 § ; file transfer with a non-zero VBN 
6 a B4 O7D4 1 CLRW dg tt pH Hi : Initialize byte counter 
68 A DO O7D7 1538 MOVL FALS$Q_RMS+4(R8) ,- ; Initialize next byte pointer 


de 
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6C Ag g7DA 1539 FALSL_RMS_PTR(RB) ; 
050 3] 7DC +1540 78 BRw EXIT SUCCESS ; Exit state with success 
0485 1 pe i 40$ BRwW ERR_FILE_XFER ; Return error in Status message 
7E2 1543 ;+ 
7E 1544 ; This code path does not use the RMS multi-block cache optimization for 
oe 134? 3; block 1/0 file transfer mode storage. 
4: 1547 3; Note that this represents the FAL functionality for the VMS V3.0 release. 
7E2 1549 ° 
7E2 1550 WRITE_FTM_NORBK: ; Disable buffering of RMS blocks 
35 AB 54 BO O7E2 1551 mMOvW R4,RABSW_RSZ(R11) ; Store block size 
AB 55 DdO OQ7E6 1 § MOVL R5,RABSL_RBF (R11) 3; Store block address 
7EA 155 SWRITE RAB=R11 : Write the block 
96 50 €9 O7F3 1554 BLBC RO,10$ ; Branch on failure 
8 AB OG O7F6 1555 CLRL RABSL_BKT(R11) : Zero VBN value to imply use of NBP 
O7F9 1556 ; in case Control message initiated 
O7F9 1557 ; file transfer at a non-zero VBN 
O4EA Hs O7F9 1558 BRw EXIT_SUCCESS ; Exit state with success 
0498 1 O7FC 1559 10$: BRW ERR_FILE_XFER ; Return error in Status message 
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-SBTTL FALSSTORE_END 


" This routine completes any block 1/0 activity in progress in order to 
: terminate file transfer mode. 


FALSSTORE_END:: ; Entry point 
98 E1 BBC #FALSV_BLK_10,(R8),20$ ; Branch if record mode ac 
2 €0 BBS #FALSV-DIS-RBK, (R8S,208 : : Branch if RMS buffering is” disabled 
66 AB BS TSTW  - FALSQ_RMS+2(R8S : Branch if there is data in RMS 
18 «12 BNEQ 10$ : buffer to write to disk 


34 
; Wait for previous write request to complete. 


BBC #RABSV_A ; Branch if no seynchronsus write 

29 04 AB RABSL ROPYRI1), 20$ ; Mog nb requires a wait call 
SWAIT  RAB=RT1 it for asynchronous write to finish 
aga nO 808" ASY ,RABSL _ROP(RI1S; tlear asynchronous operation flag 


—_— 
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wu 
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; Branch on write failure 
; Branch on success 


sv 
; Write out blocks already moved to the RMS buffer. 
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66 AB BO 10$: MOVW FAL$Q_RMS+#2(R8) ,- ; Store buffer size 
22 AB RAB$W_RSZ(R11) 3 
68 A& 00 MOVL FAL$Q_RMS+4(R8) ,- ; Store buffer address 
28 AB ABSL_RBF (R11) 8 
SWRITE tae 3; Write specified number of blocks 
03 50 9 BLBC RO : Branch on failure 
04a9 31 208: BRW tthe Success : Exit state with succe 
0457 1 0$: Baw ERR _PILE_XFER ; Return error in Status message 
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~-SBTTL FALSBIT_BUCKET 


"This routine throws away any data that may be stored in the RMS buffer 

: to support the skip record/block error posesery option for file transfer 
: storage mode. (Note that the data has already been CRC checked when the 
: _ message was processed, and the data buffered in memory). 


FALSBIT “pucrers ; Entry point 
“CLR eA L$aQ ry Pat ; Zero else in RMS buffer descriptor 
BRU” EXIT_SUCCE : Exit state with success 


-SBTTL FALSDISCARD_DAT 


This routine computes the CRC checksum of the record/block just received 
; and then throws away the data. It is called during file transfer storage 
; mode error recovery where data in the pipe is discarded until (but CRC 

; checked) until a synchronization point is reached (typically an Access 
;_ Complete message is received). 


y fee ecetideeeee 


ALSDISCARD_DAT: ; Entry peins 
mova DAPSQ FILEDATA(R9),R4 ; Store block descriptor in <R4,R5> 
BSBW COMPUTE _RCV_CRC ; Compute CRC value Cdestroyin qf RO-R3) 
; and update RCV data statistics 
BRwW EXIT_SUCCESS ; Exit state with success 


FALACTION = STATE TABLE ACTION ROUTINES 16-SEP-1984 01:3 
vOe-000 : Epa 1984 Bi 


FALSUPDATE 


; Get size of record 
; Compute size of record 

; Compute address of record 
; Store record size 

; Store record address 

; Update the record 


5 16 8 .SBTTL FALSUP)ATE 
2 1630 ;+¢+ 
50 1631 ; This reutine performs the DAP UPDATE rec 
BES Ue 
5 18 4 FALSUPDATE:: ; 
SRO 1686 + 
089 16 $ : Process the DAP ;ILEDATA field. 
e3 16 : If VFC format, it contains the record he 
1640 ° 
54 44 09 7D } 164 MOVQ DAPSQ_FILEDATA(R9),R4~ ; 
FE2E 30 24 1648 BSBY  COMPUTE_RCV_CRC :C 
03 1F AA 1 97 1644 cups FABSB_RFM(R10) ,AFABSC_VFC 
2C AB of 6 Sap 1646 OVL  R5,RAB$L_RHB(R11) : 
52 SF AA «9A «(0861 1647 MOVZBL FABSB_FSZ(R10) ,R2 : 
so 32 ONS ee SURLY Ras ; 
22 AB «O54 ) «= BO «(0868 «21650 108: MOVW R4-;RABSW_RSZ(R11) : 
28 AB O55)~=—o=#D0s«OBGF 1651 MOVL 5 ,RABSL _RBF (R11) : 
0875 165¢ SUPDATE RAB=R11 : 
OE 50 €9 O87C 165 RO, 30$ : 
aS 
8 7F 1936 : Send Status message to partner with RFA 
0 ai 1838 : 
07 69 24 €1 O87F 1659 BBC #DAP$V_GEQ_V56,(R9),208 ; 
885 1660 SSETBIT #FALSV-RET RFA, (RB) ; 
044F 1 1661 BRW EXIT_STS_SOC ; 
0459 31 OBBA 166¢ 20s: EXIT~SUCCESS : 
0407 1 088D 1663 30S: BRw ERR_FILE_XFER 3 


+36 AX/VMS Macro V04-00 
FAL.SRCJFALACTION.MAR; 1 
ord function. 


Entry point 


ader prefixed to ‘he record. 


Store record descriptor in <R4 
ompute CRC value soveereyte 
and update RCV data statistic 


Branch if not VFC forma 


t 
Store address of record header buffer 


header 


Branch on failure 


field. 


Branch if partner waee DAP before V5.6 


Return RFA of recor 

Convey success in Status messa 
Exit state with success 

Return error in Status message 
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v04-000 FALSDELETE -SEP-1984 01:16: FAL.SRCJFALACTION.MAR; 1 (31) 
9 1963 -SBTTL FALSDELETE 
90 16 § 
9 198 p++ 
4 1? 3 3; This routine performs the DAP DELETE record function. 
4 1690 
90 1671 FALSDELETE:: ; Entry point 
0890 19%¢ $DELETE RAB=R11 3 Delete the record 
0A 50 €9 0899 167 BLBC RO,208 ; Branch on failure 
Baer 1674 
9C 1675 ; 
8 9C 1978 ; Send Status message to partner. 
9C 1677 ; 
089C 1678 
03 69 % 1 Q89C 1679 #DAP$V_GEQ_V 3 
0436 1 a 1680 BRW EXIT_STS_SOC ; Convey success in stetus message 
0440 1 A3 1681 10$: BRwW EXIT" SUCCESS ; Exit state with succe 
O3EE 1 A6 1682 208: BRW ERR_FILE_XFER ; Return error in Status message 


| 
| 
BBC $V_GEQ_V56,(R9),10$ ; Branch if partner uses DAP before V5.6 
| 
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-SBTTL FALSFIND 


ges 
; This routine performs the DAP FIND record function. 


FALSFIND:: 3; Entry potne 
SFIND RAB=R11 3; Find the record 
LBC RO,20$ ; Branch on failure 


> Send Status message to partner with RFA and BKT fields. 


Branch if partner uses DAP before V5.6 
Return RFA of record 

Return record number (meaningful for 
REL file or fixed length SEQ file) 
Convey success in Status message 

Exit state with success 

Return error in Status message 
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= STATE TABLE ACTION ROUTINES 197360=1 388 91:36 
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-SBTTL FALSDISPLAY 


at open/create time. 


FALSDISPLAY:: : 
CLRL = FABSL_ AB (R10) : 

MOVAL FABSL-XAB(R10) ,- : 
FALSL-CHAIN_NXT(R8) : 

SBW CHAIN ROST_® : 

SDISPLAY FAB=R10 ; 

LBC = RO, 10 : 

BSBW CHAIN_RQST_PRT2 : 

BLBC =—_ RO, 108 : 


S ¥ SEND_OPTNL_MSGS : 


an a kk tk at at at 2 tt 
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OWNAUE WN OOD NOU EWN O OONOU EW "OOOO 


BSB 

SSETBIT #FALSV_LAST_MSG, (R8) 3 

BSBW SEND_ACK : 

BRW EXIT SUCCESS : 
10$: BRW ERR_FILE_XFER ; 
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3 ++ 
; This routine performs the DAP DISPLAY file attributes function. 


Note: RMS returns only XAB information on S$DISPLAY. The DAP specification, 
however, allows partner to request that the DAP Attributes and Name 
messages be returned in addition to Extended Attributes messages. 

f Attributes or Name messages are requested, phey will be built from 
nformation in the FAB and NAM blocks, respectively 


» that were updated 


Entry point 
Remove any XABs from chain 


Save address of next chain pointer 

Add required XABs to XAB chain 

Obtain attributes of the file 

Branch on failure 

Fill in alterate ALLXABs and KEYXABs 
as directed by NOA and NOK values 

Branch on failure 


Return (main) Attributes, Extended Attributes, and (resultant) Name messages 
to partner as directed by request mask, terminated by an Acknowledge message. 


Build and send optional DAP messages 
Declare this last message to bloc 
Send Acknowledge message 


; Exit state with success 


Return error in Status message 
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FALACTION - STATE TABLE ACTION ROUTINES 16-SEP-1984 01:34: AX/VMS Macro V04-00 Page 45 FAL 
0-500 : oat 8376588 f . 


FALSEXTEND - FAL.SRCJFALACTION.MAR; 1 (34) | v04 
F? (1741 -SBTTL FALSEXTEND 
F 1ot8 
F? 1745 344 | 
4 ee ; This routine performs the DAP EXTEND file allocation function. 
F7 1068 
4! 1747 FALSEXTEND:: 3; Entry point 
4 AA D4 F ree CLAL steer thy ; Remove any XABs from chain 
4 AA DE FA 174 MOVAL FABSL_XAB(R10),- 3 
C AB FD 1750 FALSL~CHAIN_NXf (RB) > Save address of next chain pointer 
01D1 +30 FF 1751 gseu CHAIN-RECV_RABS ; Add received XABs to XAB chain 
be 17 § EXTEND FAB=RTO ; Extend the file 
0D 50 €9 Q9 17 BLBC RO,10$ ; Branch on failure 

SOE 1755 

43 1737 ; Return Allocation message(s) terminated by an Acknowledge message. 

90E 1758 ° 

0272 30 a 1589 BSBW SEND_OPTNL_MSGS ; Build and send optional DAP messages 
0911 1760 SSETBIT #FALSV_LAST_MSG, (R8) ; Declare this last message to bloc 
024A 0 Bai8 1761 BSBW SEND_ACK ; Send Acknowledge message 
03CB 1 0918 176¢ BRW EXIT SUCCESS ; Exit state with success 
0379 1 0918 1765 108: BRW ERR_FILE_XFER ; Return error in Status message 
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91E 1765 ~SBTTL FALSREWIND 
SIE 1298 ~SBTTL FALSTRUNCATE, FALSFLUSH 
91E 176 -SBTTL FALSFREE, FALSRELEASE 
91E 1708 
SIE 178 p++ 
ate 1700 ; The following routines have separate entry points but share common code ... 
SIE aa 3; This routine performs the DAP REWIND file function. 
91E 17735 ;:-- 
91iE 1774 
91E 1775 FALSREWIND:: 3; Entry point 
ais 1776 SREWIND RAB=R11 ; Rewind the record stream 
43 11 09 177 BRB EXIT_STS_ALWAYS ; Join common code 
929 1778 
0929 1779 ;+4+ 
8 2 if 9 3; This routine performs the DAP TRUNCATE file function. 
0929 17 ¢ 
0929 17835 FALSTRUNCATE:: 3; Entry point 
0929 1784 STRUNCATE RAB=R11 ; Truncate the file 
38 38611 0932 178) BRB EXIT_STS_ALWAYS ; Join common code 
Oe ee 1786 
0934 4 14 p++ 
0934 1788 ; This routine performs the DAP FLUSH file function. 
0934 1789 ;-- 
0934 1790 
0934 1791 FALSFLUSH:: 3 prtry point 
0934 1736 S$FLUSH RAB=811 ; Flush !/0 buffers and write modified 
093D 179 : file attributes 
2D «11 093D 1794 BRB EXIT_STS_ALWAYS ; Join common code 
O93F 1795 
O93F 1298 p++ ; 
Seer a tA ; This routine performs the DAP FREE locked record function. 
O93F 1799 
O93F 1800 FALSFREE:: ; Entry point 
O93F 1801 SFREE RAB=R11 ; Free all locked records 
22 11 0948 1306 BRB EXIT_STS_ALWAYS ; Join common code 
094A 180 
094A 1804 ;++ 
3744 : 82 3; This routine performs the DAP RELEASE all locked records function. 
094A 1807 
094A 1 38 FALSRELEASE:: ; Entry point 
094A 1 SRELEASE RAB=R11 ; Release specified locked record 
17 11 0953 1810 BRB EXIT_STS_ALWAYS ; Join common code 
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-SBTTL FALSSPACE_BW, FALSSPACE_FW 
++ 


These routines perform the DAP SPACE functions, space-forward and 
space-backward. 


Note: They return the actual # blocks spaced as an unsigned number obtained 
from STV which may be non-zero for RMS$_NORMAL, RMS$_BOF, and RMS$_EOF 
completion codes. 


FALSSPACE_BW:: Entry point for space backward 


MREGL RABSL_BKT(R11),- ; DAP sends an absolute value, 
RABSL_BKT(R11) ; _$O negate it 
FALSSPACE_FW:: ; Entry point for space forward 
SSPACE RAB=R11 ; Skip or backspace specified # blocks 
SSETBIT #FALSV_RET_RECN, (R8) ; Always return actual # blocks spaced 
3 _aS an_unsigned number in RECN 
MOVL RABSL_STV(R11),- 3 Copy STV value to BKT field so that 
RABSL_BKT(R11) ; STV value will be returned in DAP 
; RECNUM2 field per DAP spec 


> Common exit path for SREWIND, STRUNCATE, SFLUSH, SFREE, SRELEASE, and $SPACE. 


EXIT_STS_ALWAYS: ; Check status of RMS function call 
B.BC 8=—_-»RO,, 108 ; Branch on failure 


: Send Status message to partner. 


BRW E 
10$: BRw E 


C ; Convey success in Status message 
ER ; Return error in Status message 
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-SBTTL FALSDISCONNECT 


ae Ht SL 


_(also called the end-of-stream function 


-_— i. 2 


ALSDISCONNECT: : 
SDISCONNECT RAB=R11 


RO,20$ 
BBC #DAPSV_GEQ_V42, (RO), 10$ 
BSBW SEND_CMP 


EXIT ppUCCESs 
BRW ERR_FILE_CLOS 
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: This routine performs the DAP DISCONNECT record stream function 


in the DAP specification). 


Entry point 

Destroy the record stream 

Branch on failure 

Branch if artner uses DAP before V4.2 
(namely, 4.1 

Send Seites Complete message 

Exit state with success 

Return error in Status message 
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EALAET ION - STATE TABLE ACTION ROUTINES 16-SEP-1984 1:34:86 AX/VMS Macro V04-00 Page $3 
v04-00 FALSRESET, FALSCHANGE =SEP-1984 01:16: FAL.SRCJFALACTION.MAR; 1 (38) | 
9BE 1864 .SBTTL FALSRESET, FALSCHANGE | 
98E 1865 
98E 1 06 p++ 
2 : } ° ; The following routines have separate entry points but share common code ... 
98E 1 “9 : This routine performs the DAP RESET file function. RESET is similar to CLOSE 
2 ; } iy 3 except that the file is erased if it was created by this access operation. 
2 : ! 6 3; Note: Before DAP V6.0 this function was called PURGE. | 
98E 1874 
oBe 1875 FALSRESET:: ; Entry point | 
01F6 C8 91 O9 1 6 CMPB FAL$B_ACCFUNC(R8),=- ; Erase file if this was a 
Oe 0992 187 #DAPSR_CREATE i file creation 
0 13° 099 1378 BEQL 10$ 3 
01F6 C8 91 0995 187 CMPB FAL$B_ACCFUNC(R8) ,=- ; ora ; 
07 0999 1880 #DAPSR_SUBMIT : file submission 
34 12 Q99A 1881 BNEQ CLOSE COMMON > operation 
099 188¢ 10$: $SETBIT #FABSU_DLT,FABSL_FOP(R10);Set delete-on-close bit 
2D 11 O9A1 188 BRB CLOSE _COMMON ; Join common close code 
O9A3 1884 
O9A3 1885 ;++ 
Bone 1356 3; This routine performs the DAP CHANGE file attributes on close function. 
O9A3 1888 
09A3 1889 FALSCHANGE:: ; Entry point 
O9A3 1890 
O9A3 1891 ; ; f 
O9A3 1096 3 Protection and Revision Date and Time “ABs are input on close, so create an 
O9A3 1893 ; XAB chain with these XABs if DAP Protection and/or Date and Time messages | 
O9A3 1894 ; have been received from partner. 
O9A3 1895 ; 
O9A3 1896 
04 AA O9A3 1897 BICwW2 #FALSM_DATXAB,- ; Clear DATXAB flag as both DATXAB and 
72 AB O9A5 1898 FAL$W_RECEIVED(R8) ; RDTXABS are generated when a Date 
QO9A7? 1899 ; .and Time message is received 
0129 30 O9A7 1900 BSBW CHAIN_RECV_XABS ; Add received XABs to XAB chain 
24 11 O9AA 1901 BRB CLOSE- COMMON ; Join common close code 


FALACTION = STATE TABLE ACTION ROUTINES 16-SEP-1984 01:34: AX/VMS Macro V04-00 Page 
v04-000 FALSCLOSE -SEP-1984 1:76:69 URAL SRCJPALACTION. MAR: 1 ° 
SAC 1903 -SBTTL FALSCLOSE 
SAC 190 
SAC 1905 ; 4+ 
yy: 1? § ; This routine performs the DAP CLOSE file function. 
SAC 1908 
Beat 1909 FALSCLOSE:: ; Entry point 
24 AA D4 O9AC 1910 CLRL FABS$L_XAB(R10) ; Remove any XABs from chain 
24 AA DE Q9AF 1911 MOVAL FABSL_XAB(R10),- : 
7C A Bees 1316 FALSL~CHAIN_NXT(R8) ; Save address of next chain pointer 
sec 1914 
984 1915 : Simulate support of the Revision Date and Time XAB on close if all of the 
09B4 1916 ; following ore true: 
09B4 1917; (1) partner does not support et of revision information on close 
09B4 1918 ; it this is a file creation operation 
Bees 1343 3 (3) a DAP Date and Time message was received on create 
09B4 1921 ; If_a Date and Time message is received on create, FALSCREATE generates a 
09B4 19 § ; RDTXAB for use on create. This XAB can now be used as input on close to 
0984 1923 ; preserve the revision date and time and revision number of the file that was 
09B4 1924 ; established on create. This is the desired action for a file COPY operation 
09B4 1925 ; where the remote node is not capable of specifying this action when the file 
0984 1926 ; is closed. 
09B4 1927 ; 
0984 1928 
2 EO QO9B4 1929 BBS #DAP$V_CHGTIMCLS,- ; Branch if partner supports change 
28 Ad 0986 1930 DAP$Q_SYSCAP(R9) ,= : of revision information on close 
17 0988 1931 CLOSE_ COMMON ; 
O1F6 C8 91 09B9 1338 CMPB FAL$B_ACCFUNC(R8) ,- ; Branch if this was not a file 
02 O9BD 193 #DAPSR_CREATE 3; creation operation 
10 12 Q9BE 1934 BNEQ CLOSE_COMMO 3 
57 0380 C8 DE O9CO 1935 MOVAL FALSL_RDTXAB(R8) ,R7 ; Get address of RDTXAB 
> oe. Os 1339 CMPB XAB$B_COD(R7) ,#XABSC_RDT; Branch if RDTXAB has not been 
6 12 09C8 193 BNEQ CLOSE_ COMMON ; initialized (and filled in on create) 
8 30 OQ9CA 1938 BSBW CHAIN_THIS_XAB ; Add this XAB to XAB chain 
7 D4 O9CD 1939 CLRL XABSL_NXT(R7) ; Be sure XAB chain is terminated as 
0900 1940 ; RDTXAB was on chain during create! 
0900 1941 
0900 1306 3+ 
+44 Hk ; Common code path for FALSRESET, FALSCHANGE, and FALSCLOSE. 
900 1945 
4 1308 CLOSE_COMMON: ; Code common to all close operations 
0900 1948 ; 
900 1949 ; Process optional DAP level CRC checksum value. 
900 1950 ; 
900 1951 
E1 +4! 1336 BBC #DAPSV_RET_CRC,- : Branch if checksum option not 
D2 195 FAL$B_ACCOPT(R8),10$ |: requested by accessing node 
E1 0906 1954 BBC #DAPS$O_X_CHECK,(R9),10$ ; Branch if checksum value not 
SDA 1955 : explicitly sent by partner 
B1 O9DA 1328 CMPW DAPS$SW_CHECK(R9) ,- ; Compare the checksums 
90D 195 DAPSL~CRC_RSLT(R9) : (order 16 CRC) 
ODF 1338 BEQLU 3; Branch if ghey match 
30 Q9E1 195 BSBW FALSCRC_LOGERR ; Log the DAP CRC error 
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v04-000 FALSCLOSE =SEP=1984 01:16:09 (CFAL.SRCJFALACTION.MAR;1 (39) 
50 82E2 BF 3C O9E4 1960 MOVZWL #<RMSS_CRCO*XFFFF>,RO ; Stuff error code (lower 16 bits) 
25 11 O9E9 1961 BRB 30$ ; Return CRC error to partner 
9EB 1366 
9EB 1963; 
9EB 1964 ; Close the file. 
SEB 1965 ; 
9EB 1396 
9EB 1967 108: $CLOSE FAB=R10 3; Close the file 
19 50 E9 O9F& 1968 BLBC RO, 308 ; Branch on failure 
51 046 AA DO O9F7 1969 MOVL FABSL_FOP(R10),R1 : Get FOP options 
F602° 30 O9FB 1970 BSBW FALSLOG CLSMSG ; Log file close in print file 
03 68 OA 8 SFE 1971 BBS #FAL$SV_QILD,(R8),20$ : Branch if wildcard operation 
016A AO 13¢6 BSBW SEND_CAP 3; Send Access Complete message 
04 AA QO00EOOO 8F CA OA0S5 1975 208: BICL2 #<<FABSM_DLT>!- ; Clear FOP options (DLT, SCF, SPL) 
yt 1974 <FABSM_SCF>!- : as wildcard file retrieval operation 
AOD 1975 <FABSM_SPL>!- ; will not re-initialize the FAB and 
QAOD 1308 0>, FABSL_FOP(R10) ; these bits are input to RMS for 
ie 197 3 both open and close operations 
b¢06 3] AQD 1978 BRW EXIT_SUCCESS 3; Exit state with success 
028D 1 O0A10 1979 308 BRW ERR_FILE_CLOS ; Return error in Status message 
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E 
E 
Al 19 1 -SBTTL STATE TABLE ERROR ROUTINES 
AI 1988 ++ 
A13 1984 ; The following routines are called by the state table manager to report state 
Al3 1985 ; table transition errors. These are due to an inappropriate DAP message being 
Ai3 19 § : received for the current state, or an invalid or unsupported operation being 
Al 1987 ; requested for the current state. Each of these routines sends a Status message 
Ai3 1988 ; to the partner process. 
Al 1989 ;-- 
St 
A1i3 199 -SBTTL FALSOUT_OF_SEQ 
OAI 1398 ++ ee 
BAY 1936 ; The DAP message being processed is incorrect (out-of-sequence) for the state. 
0A13 1997 ° 
OA15 1998 FALSOUT_OF SEQ:: ; Entry point 
O2AF 31 OAI3 1999 BRO ERR_SYNCHRONI ZE ; Return error in Status message 
Dale S001 
0A16 Oe -SBTTL FALSINV_ACCFUNC 
0A16 200 ~SBTTL FALSINV_CTLFUNC 
0OA16 2004 -SBTTL FALSINV_CONFUNC, FALSUNS_CONFUNC 
0A16 2005 -SBTTL FALSINV_CMPFUNC 
OAlé 5007 : +4 
0A16 2008 : The ACCFUNC field value is invalid for state table context. 
Dale 3010 ° 
OA16 2011 FALSINV_ACCFUNC:: ; Entry point 
50 10 00 QA16 ois MOVL #DAPS$_ACCFUNC,RO ; Get field ID code 
0297. 31 «~OA19 201 BRW ERR_IAVALID ; Return error in Status message 
SUE 8 ae 
le 818 : The CTLFUNC field value is invalid for state table context. 
OAIC ; 18 ° 
OAIC 619 FALSINV_CTLFUNC:: : Entry point 
50 10 p00 QAIC 2020 MOVL #DAPS_CTLFUNC,RO :; Get field ID code 
0291 31 OAIF 2021 BRW ERR_IRVALID ; Return error in Status message 
Bs 888 
A 6 4 > The CONFUNC field value is invalid for state table context. 
OA 026 ° 
A 3 $ FALSINV_CONFUNC:: s entey point 
50 10 9 A § MOVL #DAP$_CONFUNC RO ; Get field ID code 
0288 1 ny 0 , BRW ERR_INVALID ; Return error in Status message 
A 1 34+ 
. § ; The ACCFUNC field value is unsupported for state table context. 
A 4° 
A 5 FALSUNS_ACCFUNC:: 3 Entry point 
7 : § MOVL #DAPS$_ACCFUNC,RO :; Get field ID code 


50 10 0 
028E BRW ERR_UNSUPPORT ; Return error in Status message 


dD 8 | 
INES 16-SEP-1984 1336386 AX/VMS Macro v04-00 Page 5 
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—E 8 
EALACT ION = STATE TABLE ACTION ROUTINES 19756-1386 01: 36:68 yee /vas Macro v04-00 
v04-00 FALSINV_CMPFUNC -SEP-1984 01:16: FAL.SRCJFALACTION.MAR; 1 
rae 
" ; rh 3; The CONFUNC field value is unsupported for state table context. 
ACE 2042 ° 
AZE rk} FALSUNS_CONFUNC:: 3; Entry point 
~~. Y 0 A 5 44 MOVL #DAPS_CONFUNC,RO ; Get field ID code 
028 1 A } $2 BRW ERR_UNSUPPORT ; Return error in Status message 
A34 29 p++ 
“ r $8 : The CMPFUNC field value is invalid for state table context. 
A34 2050 * 
A34 2051 FALSINV_CMPFUNC:: ; Entry point 
50 10 0 A34 O36 MOVL #DAP$_CMPFUNC,RO ; Get field ID code 
0279 1 " i 32? BRW ERR_INVALID ; Return error in Status message 
A3A 2055 ;++ 
A3A 2056 ; This routine returns a Status message with an unsupported-key-fieid error 
BA . Bat : code. It is actually an internal support routine for FALSDECODE_CTL. 
OA3A 2059 ° 
OA3A 2060 FALSUNS_KEY:: ; Entry point 
50 13 D0 QA3A 2061 MOVL #DAP$_KEY,RO ; Get field ID code 
027C 31 OA3D 2062 BRW ERR_UNSUPPORT ; Return error in Status message 
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10$: CLRL 


ASSUME 


CHAIN, ROST LOOP: 


SCASEB 


FALSL_ALLXABIN 
FALSL_KEYXABIN 


10 
#DAPSV_DSP_SUM,AP 


R6 
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FALACTION = STATE TABLE ACTION ROUTINES 16-SEP-1984 01:34: AX/VMS Macro v04-00 Pa 54 
v04-000 SHARED SUPPORT ROUTINES iets te :16: 68 URAL SRCIFALACTION MAR: 1 _ rated 
a és ~SBTTL SHARED SUPPORT ROUTINES 
A4 
A4 83 -SBTTL CHAIN_RQST_XABS 
AS SE 
AG 0 This routine initializes XABs and adds them to the XAB chain as necessar 
AG 71 ; to obtain the requested file attribute information when the subsequent $ SOPEN 
7 ce ; is performed. 
AG 74 Note: onty requests for the DAP KEY, ALL, SUM, TIM, and PRO messages are 
AS 75 : handled here by chetning in th ¢ appropriate KABs. Furthermore only 
AS 6 3 pr inary Allocation and Key Defi nition XABS are chained into the List 
AS oe at this time, as the NOA and NOK values from the Summary XAB are not 
AS B78 : known yet. 
0A40 79; 
ve : Inputs include: 
0A40 : FALSW_DISPLAY 
0A40 ; FALSL_ CHAIN_NXT 
ytd CHAIN_RQST_XABS: 3 § i 
ntr oint 
5C 70 AB 3C QA4O MOUZWL FALSW_DISPLAY(R8) ,AP ; Copy display na mask to scratch register 
OA44 f DAP Extended 


ities aesee es to return) 


; Zero List of ALLXABs initialized 
; Zero List of KEYXABs initialized 
; Branch if neither Allocation nor 


Key Definition messages are to be 
returned 


; Include Summary XAB (to obtain NOA and 


Tage values) in case an indexed file 
Ss op 


ned 
; Sebteote AID=0 and REF=0 for 


Allocation and Key Definition XABs 


DAP$V_DSP_ATT+1 EQ DAP$V_DSP_KEY 


DAPS$V_DSP_TIM+1 EQ DAP$V_DSP_PRO 


NT epeeand eee : 


=<- 

FALSINIT -KEYXAB~ 
FALS 
FALS$ 
FALS 
FALS 


R 

SELECTOR=RO- 

BASE =#DAPSV DSP_KEY- 
DISP 


Get position of next bit set 
Clear request bit just found 
Push return address on Stack 


3; Next XAB to add to chain 


Definition 
AL  * hgay 


Summar 
Date and Time 
Protection 


G 8 
vou~000 "BrSEb=18RC 81:78:09 EPA RCTPACRcYiGncMar:1 = "89° (23, 
#*M<RO> 


CHAIN 
EWAINCR 


; pce away loop return address 
; Ex 
: Add this XAB to XAB chain | 


Handle next request 


H 8 
APA ION - STATE TABLE ACTION ROUTINES 16-SEP-1984 BE AX/VMS Macro V04-00 Page 28 
v04- CHAIN_RQST_PRT2 -SEP-1984 01:16: FAL.SRCJFALACTION.MAR; 1 (42) | 
A77? 21 -SBTTL CHAIN_RQST_PRT2 
abe 515 fast. 
Ace 1 8 p++ 
A? 1 ; This routine creates an XAB chain of alternate Allocation and Key Definition 
are ! ; KABs (as required) and then calls SDISPLAY to fill them in. 
A77 21 § 3 If an indexed file was opened and DAP Allocation and/or Key Definition 
OA77 2135 ; messages are to be returned, then the NOA and NOK values from the Summary XAB 
pare ! ¢ 3; are used to determine how may alternate XABs are required to be filled. 
Baa 1 § 
par? 137 CHAIN_RQST_ PRT2: : Entry point 
50 01 DO OA77 21 3 MOUL #1,R0 ; Assume success 
1D AA 91 «~OA7A 21 CMPB  =—s- FABS$B_ORG(R10),- : Branch if not IDX organization | 
20 OA7D 2140 #FABST_IDX ; 
2 4 OA7E 2141 BNEQ 50$ 3 
70 AB «6606S BS)Ss(OA80 146 BITW #<<DAPS$M_DSP_ALL>!=- ; Branch if neither Allocation nor 
OA84 214 <DAPSM_DSP_KEY>! = ; Key Definition messages are to be | 
OA84 9 2144 >, FALSW_DISPLAY (R8) ; returned | 
C 13 OARS 2145 BEQL o$ ; | 
24 AA DE 0A86 196 MOVAL FABS$L_XAB(R10),- ; Get address of start of XAB chain 
7C AB OA89 214 FALS$L~CHAIN_NXf(R8) : and store it 
OA8B 2148 
QA8B 2149 ; . 
pace 139 3; Initialize multiple Allocation XABs as required and chain them in. | 
OA8B 136 | 
02 €1 OA8B 215 BBC #DAP$V_DSP_ALL,- ; Branch if DAP Allocation message 
1A_70 A8 OA8D 2154 FALS$W_BISPCAY(R8),20$ ; is not requested 
SC O3AC C8 9A 0A90 2155 MOVZBL FALSL-SUMXAB+XAB$B_NOA(28),AP ; Get number of areas value 
01 5C D1 OA9S 2156 CMPL AP, #1 ; Branch if there are no alternate 
10 1B OA9B 2157 BLEGU 20$ > areas 
56 4 QA9A 2158 CLRL R6 ; initialize area ID value 
F561" 30 OA9C 2159 10S: BSBW FALSINIT_ALLXAB ; Initialize next Allocation XAB 
ASF 2160 3 _on return R7 = address of XAB 
08 50 9 OASF 2161 BLBC RO,208 ; Branch on failure (AID too Large) 
00A0 9 _— 196 BSBW CHAIN_THIS_XAB 3; Add this XAB to XAB chain 
D6 OAA 16 INCL : Increment area ID value 
F2 5C FS QAA7? 2164 SOBGTR AP,10$ ; Branch if more to process | 
QAAA 2165 
QAAA 196 3 
_— 190 3: Initialize multiple Key Definition XABs (as required) and chain them in. 
AAA 2169 ° 
01 €1 OQAAA 190 208: BBC #DAPSV_DSP_KEY,- : Branch if DAP Key Definition message 
1A_70 A AAC 2171 FAL$W_BISPCAY(R8) 40$ ; is not requested 
5¢ O3AD ¢ 9A OAAF 1% MOVZBL FALSL ~SURKAB+XABSB_NOK (RB) , AP ; Get number of keys value | 
01 C D1 QOABS 217 CMPL AP,# ; Branch if there are no alternate 
10 18 QAB? 217% BLEQuU $ ; keys | 
78 4 QAB9 2175 CLRL R6 ; Initialize key of reference value 
F542° 30 QABB 178 30$: BSBW FALSINIT_KEYXAB ; Initialize next Key Definition XAB 
ABE 217 ; on return R7 = address of XAB 
08 50 9 ra 178 BLBC RO,40$ ; Branch on failure (REF too Large) 
081 ACT 217 BSBW  CHAIN_THIS_XAB ; Add this XAB to XAB chain 
6 g AC4 21 ? INCL ; increnent key of reference value 
F2 5C SOF ate : } SOBGTR AP,30$ : Branch if more to process 


1 8 
FALACTION = STATE TABLE ACTION ROUTINES 16-SEP-1984 01:34: AX/VMS Macro v04-00 P 7 
Oke 600 CHAIN ROST PATS g7 35571382 8:98:68 FPA SRCIPALAC Pon RAR: 1 _ (23) | 
ACO 2183 ; | 
As ! ¢ : Obtain additional file attribute information. 
AC9 2186 
eh 1 ? 40$: SDISPLAY FAB=R10 3 itt oo we and alternate 7 
H n 
0s Babs 5189 50s: SB Sa ee | 
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FALACTION = STATE TABLE ACTION ROUTINES 16-SEP-1984 01:34: AX/VMS Macro V04-00 Page 5 FA 
vOe-000 CHAIN_RECV_XABS eet 7 81:76:08 UPALCSRCJSALACT ION. MAR: 1 ve 28, Sy 
191 .SBTTL CHAIN_RECV_XABS | fe 
198 p++ FA 
194 ; This routine adds XABs to the XAB chain that were received from the partner FA 
13? 3; process for use when a subsequent SCREATE, SEXTEND, or S$CLOSE is performed. oA 
199 ; Note: Only XABs generated from the DAP KEY, ALL, TIM, and PRO messages are FA 
198 : andled here by chaining in the appropriate XAB However, in contrast FA 
199 ; To CHAIN RQST_XABs, multiple Allocation and Key Definition XABs are FA 
9 3 chained tnto fhe List (if present). 7 
¢ ; Inputs include: oa 
4; FAL$W_RECEIVED | FA 
5; FALSL_KEYXABINI FA 
§ : FALSL_ALLXABINI FA 
07 ; FALSL_CHAIN_NXT FA 
i i aie 
10 CHAIN_RECV_XABS: ; Entry point FA 
11 MOUZWL FALSW_RECEIVED(R8),AP ; Copy received mask to scratch register FA 
\ : (i.e., list of XABs generated from FA 
1? 3 receipt of optional DAP messages) | 4. 
15 ASSUME FALSV_KEYXAB EQ 0 | FA 
16 ASSUME FALSV_KEYXAB+1 EQ FALS$V_ALLXAB | FA 
17 ASSUME FALS$V_ALLXAB+1 EQ FALSV_DATXAB FA 
18 ASSUME FALS$V_DATXAB+1 EQ FALSV_PROXAB FA 
19 ASSUME FALS$V~PROXAB+1 EQ FAL$V~RDTXAB | A 
1 CHAIN_RECV_LOOP: : FA 
¢ FFS #FALSV_KEYXAB,45,AP,RO ; Get position of next bit set FA 
2 SCLRBIT RO,AP ; Clear request bit just found FA 
4 SCASEB SELECTOR=RO- ; Next XAB to add to chain: FA 
5 DISPL=<- : FA 
6 10$- ; Key definition FA 
7 0$- ; Allocation FA 
28 0$- :; Date and Time FA 
9 40$- ; Protection ‘ FA 
§ 9 , 50$- ; Revision Date and Time 4 
¢ RSB ; Exit FA 
FA 
4; FA 
i 3 Chain Key Definition XAB(s). 
FA 
8 MOVL FALSL_KEYXABINI(R8),.RS5 ; Put List of KEYXABs received in | FA 
3; scratch register; at least one bit FA 
40 ; _in range is guaranteed to be set FA 
41 FFS #0, #FALSK_MAX_REF+1,R5,RO;Get REF value of next KEYXAB FA 
4g EQL _ CHAIN_RECO_LOOP ; Branch if mask exhausted FA 
4 ee R ; Clear bit just found FA 
44 MULL aF AL Sk KEYXAB,R6 ; Using REF as an index, compute FA 
45 MOVAB FALSL_REYXAB(R8)CR6].R7 ; address of KEYXAB to use FA 
48 BSB CHAIN_THIS_XAB ; Add this XAB to XAB chain FA 
4 BRB 15$ ; Handle next alternate KEYXAB FA 


Kk 8 
FALACTION = STATE TABLE ACTION ROUTINES 16-SEP-1984 01:34: AX/VMS Macro V04-00 Page 59 FA 
vos~600 CHAIN_RECV_XABS SrSE=198e 01:16:09 ERALSACIPALACTIONcMAR;1 "29% (23), Sy 
10 3348 | FA 
8] if ; Chain Allocation XAB(s). | FA 
1 FA 
dO 1 § 20S: MOVL FALSL_ALLXABINI(R8),R5 ; Put List of ALLXABs received in FA 
1 4 ; scratch register; at least one bit FA 
14 5 in range i$ guaranteed to be set | FA 
FA B14 3 25$: FFS #0 aT ALSK gftAx AID+1,R5, Rb; sGet AlD-valuevot next ALLXAB FA 
3 0819 225 BEQL _ CHAIN_RECO_LOOP ; Branch if mask exhausted FA 
128 28 SCLRBIT Rb as? ; Clear bit just found FA 
4 1F 5 MULL FAL Sx ; Using AID as an index, compute FF 
F j 60 MOVAB FAL SALLYAB (AB) ER6I, R7? ; address of ALLXAB to use LF 
3 61 BSBW cpaINaTH IS_x 3; Add this XAB to XAB chain MA 
11 4 $¢ BRB 5$ : Hendle next elternste ALLXAB oa 
D 2264 ; NA 
. 68 : Chain Date and Time, Protection, and Revision Date and Time XABs. ~ 
0B9D 3967 * NA 
o oS 3 98 30$: Bova. FAL$L_DATXAB(R8) ,R7 i; Get address of Date and Time XAB oe 
DE 0834 3 40$: MOVAL FALSL_PROXAB(R8) ,R7 : Get address of Protection XAB NA 
11 0839 2271 BRB 60$ ; NA 
OF 0838 oe 30 50$: MOVAL FALSL =ROTKABCRE) . R7 3 Get address of Rev Date and Time XAB NA 
0 4 $f 60$: BSBW CHAIN_THIS_XAB 3; Add this XAB to XAB chain NA 
11 0B43 2274 BRB CHAIN_RECV_LOOP ; Hendle next request a 
NA 
NA 
NA 
NA 
NA 
RA 


ee 


| 
| 
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FALACTION - STATE TABLE ACTION ROUTINES 16-SEP-1984 01:34: AX/VMS Macro V04-00 Page 60 
v04-0 CHAIN_THIS_XAB = $eE 1 382 8376569 FAL.SRCJFALACTION.MAR; 1 (44) 
B4 16 -SBTTL CHAIN_THIS_XAB 
B4 7 
BS of poe 
+ 4 ; This routine chains the specified XAB into the XAB chain. 
# 1 ; Inputs include: 
+ 3 R7 contains address of XAB 
re 5 ; FALSL_CHAIN_NXT 
B86. § i-- 
des 8 CHAIN_THIS_XAB: : Entry point 
7C BB «57)~=—Os«OOB 45 89 MOUL R7,@FALSL_CHAIN_NXT(R8) ; Insert XAB address into XAB chain 
04 57 C1 0B49 90 ADDL3 = R7,#XABSL_NXT,=- 3; Compute address of next chain pointer 
7C A8 0B4C 91 FAL$L_CHAIN_NXT(R8) ; _and save 
05 OB4E 35 RSB ; Exit 
OB4F ) 
OB4F 94 
OB4F 2295 .SBTTL CHECK_FOR_PMR 
OB4F 96 
OB4F 97 34+ 
OB4F 98 ; This routine is intended to be called after an RMS file parse operation has 
OB4F $39 ; been performed. It checks for the existence of a node name in the file 
OB4F 00 ; specification, and if found, it returns an error if the FAL Logging option 
per 301 ; to disable poor-man's routing (also called manual routing) has been selected. 
peer 305 3 Note: Poor-man's routing is an unsupported and undocumented feature. 
OB4F 368 
OB4F 06 CHECK_FOR_ PMR: : Entry point 
OF 50 €9 OB4F 07 BCBC RO,10$ 3; Do not alter error status from 
6838 08 3 _previous RMS parse operation 
11. +€1 OBS 09 BBC #NAMSV_NODE,- ; Exit if file specification did not 
02c8 C8 0B54 10 FALSL_NAM+NAMSL_FNB(R8),-; yield a node name (i.e., initiator 
09 0857 11 3 d not specify multiple node names) 
05 68 33 + #«24€1 0858 $18 BBC #FALSV_DIS_PMR,(R8),10$ ; Allow FAL to act as file access router 
0B5C 231 ; _unless feature is disabled by user 
50 85F4 BF 3C OBSC 2314 MOVZWL #<RMSS_NOD&“*XFFFF>,RO ; Generate ‘invalid node name’ error 
05 0861 2315 10$: RSB ; Exit 


| 
—d 
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FALACTION = STATE TABLE ACTION ROUTINES 16-SEP-1984 01:34: AX/VMS Macro v04-00 Page 61 onal 
voe-600 SEND_ACK 3 SE- 984 31:76:69 LPALLSRCIPALACTION. MAR; 1 . (45) 


~SBTTL SEND_ACK 
34% 
; Build and send Acknowledge message to partner. 
SEND_ACK: 

MOV #DAPSK_ACK_MSG,RO 

BSBW FALSBUILD_READ 


BSBW FAL$BUILD_TAIL 
BsBu FALSTRANSMIT 


3: Entry point 

; Get message type value 
; Construct message header 

; There are no fields in message body! 

; Finish building message 

; Send Acknowledge message 

; Return 


-SBTTL SEND_CMP 
3o¢ 
; Build and send Access Complete message to partner. . 
; Declare this last message of a response sequence and exit state with success. 


SEND_CMP: ; Entry point 
SSETBIT #FALSV_LAST_MSG, (R8) Declare this last message to block 
MOVL #DAP$K~ CMP_MSG,RO Get message type value 
BSBW FAL$BUILD_READ Construct message header 
MOVB #DAPSK RESPONSE ,(R3)+ Store CMPFUNC field 
BSBW FALSBUTLD_TAIL Finish building message 
BSBW FALSTRANSAIT pene Access Complete message 

x 
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= STATE TABLE ACTION ROUTINES 
SEND_OPTNL_MSGS 
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1:34: 
1:16: 


36 AX/VMS Macro V04-00 
FAL.SRCJFALACTION.MAR; 1 


AY). 


tes, 
PLAY 
of the other Extended 
ion). 


tion 


; Entry point 


; Copy arene Be mask to scratch register 


of DAP Extended 
Bowie messages to return) 


; Rearrange display mask to put 
rage ol message ahead of 
Key Definition and 
ocation messages 


#0, #DAPSV. DSP_NAM+1,AP, eb :Get position of next bit set 


; Put lis 


Clear request bit just found 
; Push return address on stack 
Next message: 


Attributes 
a: 

Key Definition 
Allocation 

Date and Time 
Protection 
(reserved) 
(reserved) 
(resultant) Name 
; Exit loo 


p 
a ity away loop return address 
> x 


Save registe 


and Name messages to 


sf eKEYXABS initialized in 


geretes register; a b+ sa one bit 


uaranteed to 


B 48 ~SBTTL SEND _OPTNL_MSGS 
Oe 
B 31 3 Build and send (main) Attributes, Extended Attribu 
: 26 3 partner as directed by the request mask (FAL$W_DIS 
B 54 ; Note: The Summary message will be sent before any 
+3 2? $ Attributes messages (per DAP V6.0 specifica 
: 37 : Inputs include: 
0B 35 ; FALSW_DISPLAY 
0B 60 ; FALSL~ KEYXABINI 
es 61 ; FALSL— ALLXABINI 
0883 6 ;-- 
0883 236 
0883 364 SEND_OPTNL_MSGS: 
3c 0B83 2365 MOUZWL FALSW_DISPLAY(R8) ,AP 
0B87 2366 
0887 seen 
0B87 2368 
0B87 2369 ASSUME DAP$V_DSP_ATT EQ 0 
0887 $3i0 ASSUME DAP$V_DSP_ATT+1 EQ DAPS$V_DSP_KEY 
0B87 2371 ASSUME DAPSV-DSP"KEY+1 EQ DAPS$V_DSP~ALL 
0B87 $376 ASSUME DAP$V_DSP_ALL+1 EQ DAP$V_DSP_SUM 
0B87 237 ASSUME DAPSV"DSP-SUM+1 EQ DAPS$V_DSP_TIM 
0887 374 ASSUME DAPS$V_DSP_TIM+1 EQ DAP$V_DSP_PRO 
tea $32 ASSUME DAP$V— _DSP_ “PRO+3 EQ DAPSV_ DSP_ “NAM 
EF 0B87 $338 EXTZV #DAPSV_DSP_KEY,#2,AP,RO ; 
EF OB8C 2378 EXTZV #DAP$V"DSP pouM 1 AP. Ri 
FO 0891 2379 INSV R1,#DAP$V_BSP_KEY,#1,AP 
FO 0B96 2380 INSV RO, *#DAPSV— “DSP_ ALL, ‘#2. AP 
0B9B 2381 SEND_OPTNL_LOOP: 
EA 0898 S358 FFS 
OBAO 238 SCLRBIT 
SF OBA4 384 PUSHAB *50$ 
OBA7 2385 $CASEB SELECTOR=RO- 
OBA? 2386 DISPL=<- 
OBA7 387 FALSENCODE_ATT- 
OBA? 2388 FALSENCODE— _SUM= 
OBA? 2389 10$- 
OBA7 90 - 
OBA? 2391 FALSENCODE_TIM- 
OBA? 38 F ALSENCODE -PRO- 
OBA? 239 - 
OBA7 2394 40$- 
OBA7 2395 F ALSENCODE_NAM- 
OBA? 2396 > 
BA O8BD 97 POPR #*M<RO> 
05 peer 98 RSB 
DD C 99 10$: PUSHL AP 
dO + ht MOVL FALSL_KEYXABINI (R8) ,AP 
a BE SF ase: ar 
13 OCB 404 BEQ 30$ 


be 
#0 ,#FALSK_MAX_REF+1,AP, Rb; Get t REF value of next SREYXAB 


ranch if mask exhausted 


FAL 
Tat 


B 9 
FALACTION = STATE TABLE ACTION ROUTINES Ig-SEP-1984 01:34:26 VAX/VMS Macro V04-00 Page 63 
04-00 EP=1984 01:16: 


EA 
SEND_OPTNL_MSGS -$ :16 FAL.SRCJFALACTION.MAR; 1 (46) 
BCD 2405 SCLRgIT R6,AP ; Clear bit just found 
50 BF 6 5 QBD1 24 § MULL R6,#FALSK_KEYXAB,RO ; Using REF as an index, compute 
000 C84 BD9 24 MOVAB FALS$L_KEYRAB(R8)CROJ,R7 : address of KEYXAB to use 
FG1E' BDF 2408 BSBW FALSERCODE KEY ; Build next Key Definition message 
F41B' Bee 409 BSBW PAL STRANSATT ; Send message just built 
DF 11 QBE 410 BRB 15 ; Handle next alternate KEYXAB 
5C OD OBE? 2411 208: PUSHL AP 3; Save register 
74 AB DO OBES 118 MOVL FALSL_ALLXABINI(R8),AP ; Put List of ALLXABs initialized in 
BED 241 3 scratch register; at least one bit 
BED 2414 ; _in range is guaranteed to be set 
20 00 EA OBED 2415 25$:  FFS #0, #FALSK_MAX_AID+1,AP,R6;Get AID value of next ALLXAB 
16 13 OBF2 $18 L o$ ; Branch if mask exhausted 
OBF4 241 te R6,AP ; Clear bit just found 
20 56 C5 OQOBF8 2418 MULL R6,#FALSK_ALLXAB,RO ; Using AID as an index, compute 
00 C840 9E OBFC 2419 MOVAB FALS$L_ALLRAB(R8)CROJ.R7 : address of ALLXAB to use 
F3FB" 30 pcos 420 BSBW FALSERCODE_ALL ; Build next Allocation message 
F3F8° 30 OCO 421 BSBW FALSTRANSMIT ; Send message just built 
E311 OCO8 $56 BRB 25$ ; Handle next alternate ALLXAB 
5C BEDO OCOA $05 30$: POPL AP ; Restore register 
01 BA OCOD 2424 40$: POPR #*M<RO> ; Throw away loop return address 
BA 11 OCOF 2425 BRB SEND_OPTNL_LOOP ; Handle next request 
F3EC' 30 0C11 2426 50S: BSBW FALSTRANSMIT 3 Send message just built 
85 11 0C14 2427 BRB SEND_OPTNL_LOOP ; Loop until done 
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FALACTION - STATE TABLE ACTION ROUTINES 16-SEP-1984 1134386 AX/VMS Macro Vv04-00 Page 64 | 
v04-000 SEND_3PART_NAM “SEP=1984 01:16: FAL.SRCJFALACTION.MAR; 1 (47) | 
C16 2429 -SBTTL SEND_3PART_NAM 
C16 2430 
C16 2431 34+ 
C16 24 ¢ ; Build and send the (volume) Name, (directory) Name, and (file) Name messages 
ie r Z ; to partner. | 
C16 2435 ; On output R1-R7 and AP are destroyed. 
C16 2436 ;-- 
C16 2437 
0C16 $38 SEND_3PART_NAM: ; Entry point 
01 BB OC16 2439 PUSHR #*M<RO> ; Save status code 
5C 28 AA 00 bcle ret MOVL FABSL_NAM(R10) , AP ; Get address of NAM block 
OC1C rr 3+ 
OCIC 24435 ; Return DAP (volume) Name message to partner. 
OC1C 2444 ; The volume string in this context means nodespec (if present) plus device name | 
OCiC 2445 ; string. 
OCIC 2446 ;:- 
OC1C 2447 
OC1C 2448 SEND_VOL_NAM: ; 

54 0080 C8 7D OCIC 2449 Mova FAL$Q_VOLNAME (R8) ,R4 3 <R4,R5> => previous volume name 
56 38 AC 9A O0C21 sie MOVZBL NAMS$B_NODE (AP) ,R6 ; Get size of node name string 
56 39 AC 80 OC25 2451 ADDB2 NAMSB_DEV(AP) ,R6 3; Add size of device name string | 
57 40 AC DO 0C29 EL MOVL NAMSL NODE (APS ,R7 ; <R6,R7> => current volume name 

67 56 00 65 54 = 2D ocee 245 CMPCS = R4,(R5),#0,R6,(R7) ; Branch if previous and current 
16 13 0C33 2454 BEQL SEND _DIR_NAM ; strings match 

0080 C8 56 00 OC35 2455 MOVL RO FAL SO VOLNAME (R8) ; It's a new one, so save it 
5 67 56 28 OC3A 2456 MOVC3 R6,(R7), TRS) ; (making it the previous one) 
5 08 9A OC3E 2457 MOVZBL #DAPSM_VOLNAME ,R5 ; Get name type parameter 

F3BC* 30 O0C41 2458 W FALSENCODE NAMI ; Build (volume) Name message 

F389" 30 0C44 2459 BSBW FALSTRANSMTT : Send Name message 

0088 C8 D4& OC47 2460 CLRL F AL$Q_DIRNAME (R8) 3; Clear the directory spec to force 

0C4B 2461 ; sending of directory name msg. 

0C4B 46¢ 

OC4B 2463 ;+ ; 

0C4B 2464 ; Return DAP (directory) Name message to partner. 

0C4B $292 [= | 

0C4B 2466 | 

0C4B 2467 SEND_DIR_NAM: : 

54 0088 C8 7D OC4B 2468 Aova ALS$Q_DIRNAME(R8),R4 =; <R4,R5> => previous directory name | 
56 SAAC 9A 0C5O $92 MOVZBL NAMSB_DIR(AP) ,R6 ; Get size of directory name string 
57 48 AC DO 0C54 2470 MOVL NAMSL_DIR(AP) ,R7 ; <R6,R7> => current directory name 

67 56 00 65 54 #8 C58 2471 CMPCS R4, (RS) ,#0,R6,(R7) 3; Branch if previous and current 
37 C5E 476 BEQL SEND FIL _NAM : strings match 
0088 c8 56 dO O0C6 47 MOVL R FKL Q peer (8) ; It's a new one, so save it 
65 67 56 8 0C65 2474 MOVC3 R6,(R7),TRS) ; (making it the previous one) | 
55 04 9A 0C69 2475 MOVZBL #DAPSM_OIRNAME .R5 ; Get name type parameter | 
F391° 30 OCé6C +78 BSBW FALSENCODE_NAM{ ; Build (directory) Name message 
F38E" 30 OC6F 247 BSBW FALSTRANSMIT ; Send Name message | 
OC? 478 
C7 479 ;+ 
C7 480 ; Return DAP (file) Name message to partner. 
C7 481 ; The file string in this context can be either: 
C7 4 ¢ ; (1) file name plus file type plus file version strings concatenated, 
C7 483 ; which is the normal case, or 
C72 2484 ; (2) quoted string (if FAL received a file specification of the form 
C7? 485 ; nodespec::'foreign-filespec’’). 


FALACTION - STATE TABLE ACTION ROUTINES 
v04-000 SEND_3PART_NAM 
C7 486 ;- 
EFS $289 
C7 4 8 
C72 2489 SEND_FIL_NAM: 
56 BAC 9A O0C7 490 MOVZBL 
6 C AC ° C7 491 ADD 
8 D AC C7A 138 ADDB 
4C A C7 49 MOVL 
55 9 A C 494 MOVZBL 
3 " 8 C 495 BSBW 
375° C88 238 BSBW 
01 BA C88 49 POPR 
5 C8D 498 RSB 


NAMSB_NA 
NAMSB_TY 
NAMSB_V 
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+36 ree? Macro V04-00 
: FAL.SRCJFALACTION.MAR; 1 


Get size of file name string 
Add size of file type string 
Add size of file version string 
<R6,R7> => current file name 
Get name type parameter 
Build (file) Name message 
Send Name message 
segiere status code 

x 
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v0%- 000 SHARED STATE EXIT ROUTINES ~$Ebr 382 1376568 FAL.SRCJFALACTION.MAR; 1 ’ (88) | 
: : 9 »SBTTL SHARED STATE EXIT ROUTINES 
C8E § 3 ++ 
CBE 25035 ; Return DAP file open error. 
: : 2 ¢ ; RO contains RMS completion code on input. 
CBE 25 § 
C8E 2507 ERR_FILE_OPEN: 3 Entry point 
52. 04 v0 OC . 5 3 MOVL #DAPS_FILE_OPEN,R2 3; Get DAP MACCODE value 
51 OC AA dO OC9 50 MOVL FABSL-STV(R10) ,R1 ; Get status value from FAB 
es 34 a BRB ERR_FILE 3 Send Status message 
a¢¢7 216 p++ 
C97 2513 ; Return DAP file transfer error. 
0C97 2514 ; RO contains RMS completion code on input. 
0C97 2515 ;-- | 
0C97 218 
0C97 2517 ERR_FILE XFER: ; Entr point | 
52. 05 30 0¢97 3518 MOVE #DAPS_FILE_XFER,R2 : Get DAP MACCODE value | 
51 OC AB DO OC9A 2519 MOVL RABSL-STV(R11),R1 ; Get status value from RAB | 
07 «11 OC9E 2520 BRB ERR_FILE ; Send Status message 
OCAO 2521 | 
OCAO 25 § 3 +4 | 
OCAO 2523 ; Return DAP file close error. 
OCAO 2524 ; RO contains RMS completion code on input. | 
OCAO 2525 ;-- 
OCAd 3536 | 
OCAO 2527 ERR_FILE CLOS: H ante point 
52. 07 DO OCAO 2528 MOVL #DAPS$_FILE_CLOS,R2 ; Get DAP MACCODE value | 
51 OC AA DO OCA3 $267 MOVL FABSL_STV(R10) ,R1 ; Get status value from FAB 
OCA? 2530 ERR_FILE: ; 
08 13 OCA? 2531 BEQL 10$ ; Branch on zero STV 
0469 34 €1 OCA9 236 BBC #DAPSV_VAXVMS,(R9),10$ ; Branch if partner is not VAX/VMS 
OCAD 253 SSETBIT #FALSV-RET_STV, (RB) ; Request return of STV field in 
0CB1 Soee ; _DAP Status message 
19 «+11 it 332 10$: BRB EXIT_STS_FAIL ; Send Status message | 
0cB 3537 p++ : : 
0cB3 238 ; Return DAP invalid error. 
0cB 539 ; RO contains DAP field ID code on input. 
0CB3 2540 ;-- | 
0cB 541 
0cB 248 ERR_INVALID: ; entey point 
51 30 A9 9A OCB 54 MOVZBL DAPSB_TYPE(R9),R1 : Get DAP message type 
52 09 oO OCB 544 MOVL #DAP$_INVALID,R2 ; Get DAP MACCODE value 
10 11 OCBA 2545 BRB EXIT_STS_FAIL 3 Send Status message 
CBC 278 
CBC 2547 ; ++ 
CBC 2548 ; Return DAP unsupported error. 
CBC 2549 ; RO contains DAP field ID code on input. 
CBC 2239 s=° 
CBC 51 
CBC 236 ERR_UNSUPPORT: : entry point | 
51 30A9 9A OCB 22 MOVZBL DAPS$B_TYPE(R9) ,R1 ; Get DAP message type 
52 0¢ dO OCC 54 MOVL  #DAPS~UNSUPPORT ,R2 : Get DAP MACCODE value | 
11 ce 232 BRB EXIT_STS_FAIL ; Send Status message | 
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IT ROUTINES -SEP-1984 01:16: FAL.SRCJFALACTION.MAR; 1 (48) | 
| 


voe-600 


m 
a4 
& 
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= STA 
SHARE AT 
p++ 

; Return DAP message-out-of-sequence error. 


ERR_SYNCHRONIZE: ; Entr potne 
MOVZBL DAPSB_TYPE(R9), Get ba poasage type 


9A R1 ; 
MOVL #DAPS_MSG_SYNC,R2 ; Get DAP MACCODE value 


dO 


OOOCOOCOCOCOCOoOoO V- 
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p++ 

; Build and send (failure) Status message to partner. 

: Declare this last message of a response sequence and exit state with failure. 
; RO contains RMS completion code on input. 


A 

EX 

if 

et 

6 

e3 

64 

Hi 

9 

71 EXIT_STS_FAIL: ; Entry point 

Le SSETBIT #FALSV_LAST_MSG, (R8) ; Declare this last message to block 
ie BSBW FALSENTODE_STS ; Build Status message 
75 ’ 
76 

oe 

15 

80 

81 

83 

Ba 

85 

86 

87 

88 

89 

90 


BSBW FALSTRANSMIT ; Send Status message to partner 


he 
3; Exit state with failure. 


Entry point 


EXIT_FAILURE: 
CLRL RO : Signal state transition failure 
RSB ; Exit to state table manager 


og 
ws 


p++ 
; Build and send (success) Status message to partner. 


; Declare this Last message of a response sequence and exit state with success. 
; RO contains RMS (success) completion code on input. 


EXIT_STS_SUC: ; Entry point 


PS POPORAOMOAAAOWOS OOOOO OO OODAAAMPFAO POW AOAAAAOAAO QAM" 
Pera AL Ab AL AL Ab Ab AD AD AD AD AD AD Ab Ab bbb bebe bebe bed bedb edb db db db db dab dab dab deh edhe 


MMmMmMmMmMmMMMMMmMooCOOCVCTVT SCV V VTS VF FSV FVII MOAAAOAAOAHAAOOAOOAHAOoO Ww 


SOOOCOOCOCOCOCOCSOOSCOOOSS DOOOOCOCOCOOOCOOOOOOOOooOO 


91 SSETBIT #FALSV_LAST_MSG, (R8) ; Declare this last message to block 
D0 36 MOVL #DAP$ SUCCESS,RO : Get DAP MACCODE value 
30 9 BSBW FALSENCODE_STS ; Build Status message 
30 £30 BSBW FALSTRANSMIT 3; Send Status message to partner 

596 ;++ : 

597 ; Exit state with success. 

598 ;-- 

599 . 

$90 EXIT_SUCCESS: ; Entry point 
dO 601 MOVL #1,R0 : Signal state transition success 
05 O06 R 3; Exit to state table manager 

604 ~ END ; End of module 
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FALACTION = STATE TABLE ACTION ROUTINES 16=SEP=1984 01:34: AX/VMS Macro v04-00 Page 68 
Symbol table o73Fb= 184 $1 :76:68 UPALLSRCTPALACTION. MAR; 1 9° (8) 
$$. TMP1 : 1 DAPSB_NUL 000006D 
$$. TMP2 = A DAP$B_ORG 45 
SSCOUNT : 09 DAP$B-OSTYPE 42 | 
CHAIN_RECV_LOOP AD? R 0 DAP$B-RAC 46 | 

HAIN-RECV~XABS 90 AD3 R DAP$B-RAT 00004 | 
CHAIN_RQST_L 9 ASS R DAPSB_REF 8 6C 
CHAIN-RQST-PRT2 0000A77 R APSB_RFM 900046 | 
CHAIN-RQST~XABS 0 Ad R 0 DAP$B-SHR 00 04 | 
CHAIN-THIS-X 0 0 45 R 0 DAP$B-S1Z 00005¢ | 
CHECK"FOR_PMR 0 BaF R 03 DAP$B-SIZ_1M 0000044 

CHECK ~PARSE 0000004 R 3 DAP$B-STREAMID 0000032 

CHECK-STREAM 29004 R 3 AP$B-TKS 00 007 

CLOSE - COMMON 900 R DAPSB-TYPE 000030 | 
COMPUTE _RCV_CRC 9000068 R 03 DAP$B-USRNUM 00 0046 

COMPUTE —XMT~CRC 0000454 R 03 DAPSB-USRVER 0000004 

CR = 0000000D DAP$B_VERNUM 90000044 

CRLF = Q0000A0D DAP$B-X_FIELD 00000024 

CTRLZ = 0000001A $C“BCN 0000000 

DAP$B_ACCFUNC 90000040 DAPSK-ACK_MSG = 90000006 

DAP$B_ACCOPT 00000041 K"BL 000000C 

DAP$B_AID 00000050 DAP$K_CMP_MS = 00000007 

DAP$B_ALN 00000044 APSK-CRC"INIT = QOOOFFFF 

DAP$B_AOP 00000045 DAPSK~CREATE = 00000002 

DAP$B-BITCNT 00000035 APSK-DAT_MSG = 00000008 

AP$B_BKS 00000050 DAPSK~F1 = 00000001 

AP$B_BKZ 00000051 DAPSK~RESPONSE = 00000002 
DAP$B_BLKCNT 00000056 DAP$K~SEQ = 00000000 | 
DAP$B_BSZ 00000052 DAP$K~SEQ_ACC = 00000000 
DAP$B_CMPFUNC 00000040 DAPSK~ST = 00000000 
DAP$B_ CONF UNC 00000040 DAP$K~SUBMIT = 00000007 
DAP$SB_CTLFUNC 00000040 DAPS$L-ALQ1 0000004¢ 
DAP$B_DA 00000070 DAPS$L-ALQ2 0000004¢ 
DAP$B_DATATYPE 00000044 DAPSL—AT TMENU 00000040 
DAP$B_DBS 0000007¢ DAPSL_CMWA 00000030 
DAP$B_DCODE_F ID 00000019 DAPSL-CRC_RSLT 00000020 
DAP$B_DCODE — 00000018 DAPSL-DCOBE_STS 00000018 
DAP$B_DCODE -MSG 90000014 DAPS$L_DEV 0000068 
DAP$B_DECV 00000047 DAPSL-DVB 0000078 
DAP$B_DTP 00000071 DAPSL~EBK 0000078 
DAP$B_ECONUM 00000045 DAPSL~FOP1 0000064 | 
DAP$B_FAC 9000004¢ DAPSL~FOP2 0000044 | 
DAP$B_FILESYS 0000004 DAPSL~HBK 00000074 
DAP$B_FLAGS 00000031 DAPSL “KE YMENU 00000040 | 
DAP$B_FLG 0 48 DAP$L-LOC 90000048 

DAP$B_F 52 51 DAPSL_MRN 00005 | 
DAP$B_1AN 6 DAPSL_MSG_MASK 0000001C | 
DAP$B_1BS 0 5 DAPSL_RECRUM1 00000040 | 
DAPSB_KRF 4 DAPSL~RECNUMZ 00 0 48 | 
DAP$B_LAN f DAPSL~ROP 000050 

DAP$B_LEN256 4 DAPSL_RVB 0000074 | 
DAP$B_LENGT 3 DAPSL-S 00 orc | 
DAP$B-LVL 0 DAPSL~SSPWA 8 | 
DAPSB_NAME TYPE 4 DAPSL-ST 4 | 
DAP$B_NOA 4 DAPSL-TE 9 | 
DAP$B~NOK 44 DAPSM~BITCNT = 0 

DAP$B_NOR 4 DAPSM~BLKCNT z 4 

DAP$B_NSG 4 DAPSM~CMPFMT = 0 


en 
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tee hye ee ee ota tS 1:36:48 YP AL SRCJPALACTION. MAR; 1 (48) 
Symbol table 
s 
DAP SACL RWARIE ~ 4 Severe tigi : § 
DAPSATDRON = DAPSW_ACLMENU 
APSM"DSP_ 3NAM . § DAPSW"BLS 4 
DAPSRDSP- . DAPSW~BUFSIZ 
DAPSR-DSPTREY DAPS$W_ CHECK 4 
SOS DSP Nay . 1 DAPSW7CTLMENU ri 
SOSA PARED 1 DAPSW"DEQ! 54 
RAPEAT Ite . DAP$WDEQ2 $2 
DAPSACGET : ; DAPSW_DFL 000044 
PENT G0. NOGO = 5 1 DAPS$W_DISPLAY1 $¢ 
ey s 0 DAPSW-DISPLAY2 5 
DAPSRTL SAC’ = $000008 DAPSU"FFB 7 
Pench = 0008 DAPSW_IFL 0 
DAPSRCRSE $0004 DAPSW7LRL 9 7 
DAPSA-SEG . $00 04 DAPSW_MRL $8 iH 
APSATTEIE = 90900930 APSU "MR 000004A 
OAPSHTTRP2$ = 00000¢ DAPSW PARTNER 0000006 
DAP SRT TMPSS = 000 8050 $u7POS 900004¢ 
DAPSATTMPGS = 01000000 APSU7POS_ TMP 000004A 
SSR TTADSS = F0000000 DAPSW~PROGRP 0000054 
SAP En VOL NA = 00000008 DAPSW~PROMENU 0000040 
OAPSRYERO = 90000080 P$U~PROOW 0000052 
SAP SaaeT. * 90000070 DAPSU-PROSYS 000005 
eteiy 0000006 DAPSW-PROWLD 0000005 
yitwat 0000006 DAPSW"PVN 000004 
yeti 000000 DAPSWORFA 000004 
ret 1 lene So0000$ APSWORVN 000004 
yet ath Soogpoes DAPSW"STSCODE 900004 
DAPSOTFILESPEC 00044 DAPS$W_SUMENU 0000040 
yet et pale $0000048 DAPSW7TIMENU 90000040 
ya agonoaee DAPSW "VERSION 9000004 
Be te sh Tine _ BiB 
rt t eure 4 Ooae DAP$~ CMPFUNC = 00001 8 
sete Mart} ee oO 0n0048 DAPS$_ CONF UNC = 0000001 
DAPSO- 0000005 DAP$~ CTLFUNC = 00 30019 
yrs ta eal $6006 DAPS "FILE CLOS = 0000000 
DAPSOTRDT $0000 DAP$_FILE_OPEN = 00000004 
PAP Sa-RUN boosnose DAPS-FILE-XFER = 90000005 
OAPsansix. §009008 DAPS INVALID = 90000009 
yates 100000 DAPS "KEY = 90000013 
“a yepEC 500 80 DAPS _BSe 5 Yuc . 0 _ 
peer ec : Baie BEE EC ae : ssi 
- 2 
DAPSV~DSP“ATT = ( oC : i 
DAPSV"DSP-KEY : DC : i 
“DSP7 DCa . 
DAP$V_DSP_PRO = 000 ; . ! 
DAPSV DSP "TIA rs 90006 i Pee FILE ae 
yeasty - | ERR7FILE_CLOS CAO R 
vray : hi ERR7FILE~OPEN CBE R 
APSV-CEG-V70 2 ERRFILE-XFER C97 R 
DA VoRETTOR = § ERR_INVACID cB . 
DAPSV-VAXONS. : i ERR~SYNCHRONIZE co R 
DAPS$V_WILDCARD = 6 ERR_UNSU 
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Psect synopsis -SEP-1984 
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! Psect synopsis ! 


tem en eee ec eee eme oan} 


PSECT name Allocation PSECT No. Attributes 

- ABS. 00000000 < 0.) 00 ¢ OO.) NOPIC USR CON ABS~ LCL NOSHR 

FALSDATA 00000004 ( 4.) 1 ¢ -) NOPIC USR CON REL LCL SHR 

SABSS 00002000 < Bie) ¢ ( ¢°} NOPIC USR CON ABS LCL NOSHR 

FALSCODE OOOOOCEA ( 3306.) ( -) NOPIC USR CON REL LCL NOSHR 
domoezce Se ee es oe oe ee me ee Se 
H Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 35 00:00:00.06 00:00:00 -62 

Command processing 118 Bp 288: 9-3? Op RO a: 8 

Pass 731 00:00:23.51 00:01:33.79 

Symbol table sort 0 00:00: ¢-f0 00:00:11.65 

ass 412 00:00:05.84 Bo 120188 - 

Symbol table output 1 00:00:00.29 00:00:00.41 

Psect synopsis output 0 00:00:00.01 00:00:00.01 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assemble: run totals 1299 00:00:32.87 00:02:13.92 


The working set Limit was 2550 pages. 
194390 bytes (380 pages) of virtual memory were used to buffer the intermediate cod 
There were 140 pages of symbol table space allocated to hold 2683 non-local and 183 
2604 source Lines were read in Pass 1, produc tng 29 object records in Pass 2 

pages of virtual memory were used to define 72 macros. 
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Macro Library name Macros defined 


“BSeseOUACE FEAL OBIE AL BL 25 
$255$DUA28: CSYSLIBISTARLET.MLB;2 44 
TOTALS (all libraries) 69 


3282 GETS were required to define 69 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:FALACTION/OBJ=OBJ$:FALACTION MSRC$:FALACTION/UPDATE=(ENH$:FALACTION) +LIB$:FAL/LIB 
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